line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
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
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
package XML::Stream::XPath; |
24
|
|
|
|
|
|
|
|
25
|
11
|
|
|
11
|
|
486
|
use 5.008; |
|
11
|
|
|
|
|
82
|
|
|
11
|
|
|
|
|
484
|
|
26
|
11
|
|
|
11
|
|
66
|
use strict; |
|
11
|
|
|
|
|
26
|
|
|
11
|
|
|
|
|
429
|
|
27
|
11
|
|
|
11
|
|
68
|
use warnings; |
|
11
|
|
|
|
|
20
|
|
|
11
|
|
|
|
|
484
|
|
28
|
11
|
|
|
11
|
|
65
|
use vars qw( $VERSION %FUNCTIONS ); |
|
11
|
|
|
|
|
24
|
|
|
11
|
|
|
|
|
858
|
|
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
$VERSION = "1.23_06"; |
31
|
|
|
|
|
|
|
|
32
|
11
|
|
|
11
|
|
7904
|
use XML::Stream::XPath::Value; |
|
11
|
|
|
|
|
34
|
|
|
11
|
|
|
|
|
337
|
|
33
|
11
|
|
|
11
|
|
25669
|
use XML::Stream::XPath::Op; |
|
11
|
|
|
|
|
530
|
|
|
11
|
|
|
|
|
386
|
|
34
|
11
|
|
|
11
|
|
24489
|
use XML::Stream::XPath::Query; |
|
11
|
|
|
|
|
37
|
|
|
11
|
|
|
|
|
996
|
|
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
sub AddFunction |
37
|
|
|
|
|
|
|
{ |
38
|
0
|
|
|
0
|
0
|
|
my $function = shift; |
39
|
0
|
|
|
|
|
|
my $code = shift; |
40
|
0
|
0
|
|
|
|
|
if (!defined($code)) |
41
|
|
|
|
|
|
|
{ |
42
|
0
|
|
|
|
|
|
delete($FUNCTIONS{$code}); |
43
|
0
|
|
|
|
|
|
return; |
44
|
|
|
|
|
|
|
} |
45
|
|
|
|
|
|
|
|
46
|
0
|
|
|
|
|
|
$FUNCTIONS{$function} = $code; |
47
|
|
|
|
|
|
|
} |
48
|
|
|
|
|
|
|
|
49
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
1; |
51
|
|
|
|
|
|
|
|