source: perl/modules/Jabber/lib/XML/Stream/XPath.pm @ 702aee7

barnowl_perlaimdebianrelease-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since 702aee7 was c2bed55, checked in by Nelson Elhage <nelhage@mit.edu>, 17 years ago
Moving Net::Jabber into Jabber.par
  • Property mode set to 100644
File size: 1.4 KB
Line 
1##############################################################################
2#
3#  This library is free software; you can redistribute it and/or
4#  modify it under the terms of the GNU Library General Public
5#  License as published by the Free Software Foundation; either
6#  version 2 of the License, or (at your option) any later version.
7#
8#  This library is distributed in the hope that it will be useful,
9#  but WITHOUT ANY WARRANTY; without even the implied warranty of
10#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
11#  Library General Public License for more details.
12#
13#  You should have received a copy of the GNU Library General Public
14#  License along with this library; if not, write to the
15#  Free Software Foundation, Inc., 59 Temple Place - Suite 330,
16#  Boston, MA  02111-1307, USA.
17#
18#  Jabber
19#  Copyright (C) 1998-2004 Jabber Software Foundation http://jabber.org/
20#
21##############################################################################
22
23package XML::Stream::XPath;
24
25use 5.006_001;
26use strict;
27use vars qw( $VERSION %FUNCTIONS );
28
29$VERSION = "1.22";
30
31use XML::Stream::XPath::Value;
32use XML::Stream::XPath::Op;
33use XML::Stream::XPath::Query;
34
35sub AddFunction
36{
37    my $function = shift;
38    my $code = shift;
39    if (!defined($code))
40    {
41        delete($FUNCTIONS{$code});
42        return;
43    }
44
45    $FUNCTIONS{$function} = $code;
46}
47
48
491;
50
Note: See TracBrowser for help on using the repository browser.