Filename | /usr/lib64/perl5/vendor_perl/5.16.0/x86_64-linux/XML/LibXML/NodeList.pm |
Statements | Executed 17 statements in 4.48ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 2.47ms | 10.6ms | BEGIN@15 | XML::LibXML::NodeList::
1 | 1 | 1 | 113µs | 379µs | BEGIN@23 | XML::LibXML::NodeList::
1 | 1 | 1 | 89µs | 193µs | BEGIN@12 | XML::LibXML::NodeList::
1 | 1 | 1 | 58µs | 92µs | BEGIN@13 | XML::LibXML::NodeList::
1 | 1 | 1 | 50µs | 190µs | BEGIN@19 | XML::LibXML::NodeList::
1 | 1 | 1 | 37µs | 37µs | BEGIN@16 | XML::LibXML::NodeList::
1 | 1 | 1 | 31µs | 31µs | BEGIN@17 | XML::LibXML::NodeList::
0 | 0 | 0 | 0s | 0s | __ANON__[:28] | XML::LibXML::NodeList::
0 | 0 | 0 | 0s | 0s | append | XML::LibXML::NodeList::
0 | 0 | 0 | 0s | 0s | get_node | XML::LibXML::NodeList::
0 | 0 | 0 | 0s | 0s | get_nodelist | XML::LibXML::NodeList::
0 | 0 | 0 | 0s | 0s | iterator | XML::LibXML::NodeList::
0 | 0 | 0 | 0s | 0s | new | XML::LibXML::NodeList::
0 | 0 | 0 | 0s | 0s | new_from_ref | XML::LibXML::NodeList::
0 | 0 | 0 | 0s | 0s | pop | XML::LibXML::NodeList::
0 | 0 | 0 | 0s | 0s | prepend | XML::LibXML::NodeList::
0 | 0 | 0 | 0s | 0s | push | XML::LibXML::NodeList::
0 | 0 | 0 | 0s | 0s | shift | XML::LibXML::NodeList::
0 | 0 | 0 | 0s | 0s | size | XML::LibXML::NodeList::
0 | 0 | 0 | 0s | 0s | string_value | XML::LibXML::NodeList::
0 | 0 | 0 | 0s | 0s | to_boolean | XML::LibXML::NodeList::
0 | 0 | 0 | 0s | 0s | to_literal | XML::LibXML::NodeList::
0 | 0 | 0 | 0s | 0s | to_number | XML::LibXML::NodeList::
0 | 0 | 0 | 0s | 0s | unshift | XML::LibXML::NodeList::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | # $Id$ | ||||
2 | # | ||||
3 | # This is free software, you may use it and distribute it under the same terms as | ||||
4 | # Perl itself. | ||||
5 | # | ||||
6 | # Copyright 2001-2003 AxKit.com Ltd., 2002-2006 Christian Glahn, 2006-2009 Petr Pajas | ||||
7 | # | ||||
8 | # | ||||
9 | |||||
10 | package XML::LibXML::NodeList; | ||||
11 | |||||
12 | 2 | 162µs | 2 | 297µs | # spent 193µs (89+104) within XML::LibXML::NodeList::BEGIN@12 which was called:
# once (89µs+104µs) by XML::LibXML::BEGIN@25 at line 12 # spent 193µs making 1 call to XML::LibXML::NodeList::BEGIN@12
# spent 104µs making 1 call to strict::import |
13 | 2 | 155µs | 2 | 126µs | # spent 92µs (58+34) within XML::LibXML::NodeList::BEGIN@13 which was called:
# once (58µs+34µs) by XML::LibXML::BEGIN@25 at line 13 # spent 92µs making 1 call to XML::LibXML::NodeList::BEGIN@13
# spent 34µs making 1 call to warnings::import |
14 | |||||
15 | 2 | 575µs | 1 | 10.6ms | # spent 10.6ms (2.47+8.13) within XML::LibXML::NodeList::BEGIN@15 which was called:
# once (2.47ms+8.13ms) by XML::LibXML::BEGIN@25 at line 15 # spent 10.6ms making 1 call to XML::LibXML::NodeList::BEGIN@15 |
16 | 2 | 136µs | 1 | 37µs | # spent 37µs within XML::LibXML::NodeList::BEGIN@16 which was called:
# once (37µs+0s) by XML::LibXML::BEGIN@25 at line 16 # spent 37µs making 1 call to XML::LibXML::NodeList::BEGIN@16 |
17 | 2 | 147µs | 1 | 31µs | # spent 31µs within XML::LibXML::NodeList::BEGIN@17 which was called:
# once (31µs+0s) by XML::LibXML::BEGIN@25 at line 17 # spent 31µs making 1 call to XML::LibXML::NodeList::BEGIN@17 |
18 | |||||
19 | 2 | 521µs | 2 | 329µs | # spent 190µs (50+139) within XML::LibXML::NodeList::BEGIN@19 which was called:
# once (50µs+139µs) by XML::LibXML::BEGIN@25 at line 19 # spent 190µs making 1 call to XML::LibXML::NodeList::BEGIN@19
# spent 139µs making 1 call to vars::import |
20 | 1 | 4µs | $VERSION = "1.90"; # VERSION TEMPLATE: DO NOT CHANGE | ||
21 | |||||
22 | use overload | ||||
23 | # spent 379µs (113+266) within XML::LibXML::NodeList::BEGIN@23 which was called:
# once (113µs+266µs) by XML::LibXML::BEGIN@25 at line 29 | ||||
24 | 'bool' => \&to_boolean, | ||||
25 | 'cmp' => sub { | ||||
26 | my($aa, $bb, $order) = @_; | ||||
27 | return ($order ? ("$bb" cmp "$aa") : ("$aa" cmp "$bb")); | ||||
28 | }, | ||||
29 | 2 | 2.76ms | 2 | 645µs | ; # spent 379µs making 1 call to XML::LibXML::NodeList::BEGIN@23
# spent 266µs making 1 call to overload::import |
30 | |||||
31 | sub new { | ||||
32 | my $class = shift; | ||||
33 | bless [@_], $class; | ||||
34 | } | ||||
35 | |||||
36 | sub new_from_ref { | ||||
37 | my ($class,$array_ref,$reuse) = @_; | ||||
38 | return bless $reuse ? $array_ref : [@$array_ref], $class; | ||||
39 | } | ||||
40 | |||||
41 | sub pop { | ||||
42 | my $self = CORE::shift; | ||||
43 | CORE::pop @$self; | ||||
44 | } | ||||
45 | |||||
46 | sub push { | ||||
47 | my $self = CORE::shift; | ||||
48 | CORE::push @$self, @_; | ||||
49 | } | ||||
50 | |||||
51 | sub append { | ||||
52 | my $self = CORE::shift; | ||||
53 | my ($nodelist) = @_; | ||||
54 | CORE::push @$self, $nodelist->get_nodelist; | ||||
55 | } | ||||
56 | |||||
57 | sub shift { | ||||
58 | my $self = CORE::shift; | ||||
59 | CORE::shift @$self; | ||||
60 | } | ||||
61 | |||||
62 | sub unshift { | ||||
63 | my $self = CORE::shift; | ||||
64 | CORE::unshift @$self, @_; | ||||
65 | } | ||||
66 | |||||
67 | sub prepend { | ||||
68 | my $self = CORE::shift; | ||||
69 | my ($nodelist) = @_; | ||||
70 | CORE::unshift @$self, $nodelist->get_nodelist; | ||||
71 | } | ||||
72 | |||||
73 | sub size { | ||||
74 | my $self = CORE::shift; | ||||
75 | scalar @$self; | ||||
76 | } | ||||
77 | |||||
78 | sub get_node { | ||||
79 | # uses array index starting at 1, not 0 | ||||
80 | # this is mainly because of XPath. | ||||
81 | my $self = CORE::shift; | ||||
82 | my ($pos) = @_; | ||||
83 | $self->[$pos - 1]; | ||||
84 | } | ||||
85 | |||||
86 | 1 | 8µs | *item = \&get_node; | ||
87 | |||||
88 | sub get_nodelist { | ||||
89 | my $self = CORE::shift; | ||||
90 | @$self; | ||||
91 | } | ||||
92 | |||||
93 | sub to_boolean { | ||||
94 | my $self = CORE::shift; | ||||
95 | return (@$self > 0) ? XML::LibXML::Boolean->True : XML::LibXML::Boolean->False; | ||||
96 | } | ||||
97 | |||||
98 | # string-value of a nodelist is the string-value of the first node | ||||
99 | sub string_value { | ||||
100 | my $self = CORE::shift; | ||||
101 | return '' unless @$self; | ||||
102 | return $self->[0]->string_value; | ||||
103 | } | ||||
104 | |||||
105 | sub to_literal { | ||||
106 | my $self = CORE::shift; | ||||
107 | return XML::LibXML::Literal->new( | ||||
108 | join('', grep {defined $_} map { $_->string_value } @$self) | ||||
109 | ); | ||||
110 | } | ||||
111 | |||||
112 | sub to_number { | ||||
113 | my $self = CORE::shift; | ||||
114 | return XML::LibXML::Number->new( | ||||
115 | $self->to_literal | ||||
116 | ); | ||||
117 | } | ||||
118 | |||||
119 | sub iterator { | ||||
120 | warn "this function is obsolete!\nIt was disabled in version 1.54\n"; | ||||
121 | return undef; | ||||
122 | } | ||||
123 | |||||
124 | 1 | 17µs | 1; | ||
125 | __END__ |