← Index
NYTProf Performance Profile   « block view • line view • sub view »
For conv.pl
  Run on Sun Nov 14 21:27:43 2010
Reported on Sun Nov 14 21:29:11 2010

Filename/usr/lib/perl5/XML/SAX/ExpatXS/Preload.pm
StatementsExecuted 916204 statements in 5.67s
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
365598113.01s5.29sXML::SAX::ExpatXS::Preload::::__ANON__[:167]XML::SAX::ExpatXS::Preload::__ANON__[:167]
185299111.53s3.55sXML::SAX::ExpatXS::Preload::::__ANON__[:230]XML::SAX::ExpatXS::Preload::__ANON__[:230]
185299111.47s10.6sXML::SAX::ExpatXS::Preload::::__ANON__[:41]XML::SAX::ExpatXS::Preload::__ANON__[:41]
500011123ms135msXML::SAX::ExpatXS::Preload::::get_start_elementXML::SAX::ExpatXS::Preload::get_start_element
500011116ms126msXML::SAX::ExpatXS::Preload::::get_end_elementXML::SAX::ExpatXS::Preload::get_end_element
500011113ms124msXML::SAX::ExpatXS::Preload::::get_charactersXML::SAX::ExpatXS::Preload::get_characters
500011111ms122msXML::SAX::ExpatXS::Preload::::get_commentXML::SAX::ExpatXS::Preload::get_comment
11125µs31µsXML::SAX::ExpatXS::Preload::::BEGIN@12XML::SAX::ExpatXS::Preload::BEGIN@12
11115µs62µsXML::SAX::ExpatXS::Preload::::BEGIN@13XML::SAX::ExpatXS::Preload::BEGIN@13
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:100]XML::SAX::ExpatXS::Preload::__ANON__[:100]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:104]XML::SAX::ExpatXS::Preload::__ANON__[:104]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:113]XML::SAX::ExpatXS::Preload::__ANON__[:113]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:123]XML::SAX::ExpatXS::Preload::__ANON__[:123]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:133]XML::SAX::ExpatXS::Preload::__ANON__[:133]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:137]XML::SAX::ExpatXS::Preload::__ANON__[:137]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:159]XML::SAX::ExpatXS::Preload::__ANON__[:159]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:163]XML::SAX::ExpatXS::Preload::__ANON__[:163]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:176]XML::SAX::ExpatXS::Preload::__ANON__[:176]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:186]XML::SAX::ExpatXS::Preload::__ANON__[:186]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:196]XML::SAX::ExpatXS::Preload::__ANON__[:196]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:200]XML::SAX::ExpatXS::Preload::__ANON__[:200]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:222]XML::SAX::ExpatXS::Preload::__ANON__[:222]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:226]XML::SAX::ExpatXS::Preload::__ANON__[:226]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:239]XML::SAX::ExpatXS::Preload::__ANON__[:239]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:249]XML::SAX::ExpatXS::Preload::__ANON__[:249]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:259]XML::SAX::ExpatXS::Preload::__ANON__[:259]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:263]XML::SAX::ExpatXS::Preload::__ANON__[:263]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:33]XML::SAX::ExpatXS::Preload::__ANON__[:33]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:37]XML::SAX::ExpatXS::Preload::__ANON__[:37]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:50]XML::SAX::ExpatXS::Preload::__ANON__[:50]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:60]XML::SAX::ExpatXS::Preload::__ANON__[:60]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:70]XML::SAX::ExpatXS::Preload::__ANON__[:70]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:74]XML::SAX::ExpatXS::Preload::__ANON__[:74]
0000s0sXML::SAX::ExpatXS::Preload::::__ANON__[:96]XML::SAX::ExpatXS::Preload::__ANON__[:96]
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package XML::SAX::ExpatXS::Preload;
2
3#-----------------------------------------------------#
4# STOP!!!!!
5#
6# This file is generated by the 'Makefile.PL' file
7# that ships with the XML::SAX::ExpatXS distribution.
8# If you need to make changes, patch that file NOT
9# this one.
10#-----------------------------------------------------#
11
12347µs237µs
# spent 31µs (25+6) within XML::SAX::ExpatXS::Preload::BEGIN@12 which was called: # once (25µs+6µs) by XML::SAX::ExpatXS::BEGIN@6 at line 12
use strict;
# spent 31µs making 1 call to XML::SAX::ExpatXS::Preload::BEGIN@12 # spent 6µs making 1 call to strict::import
1332.86ms2109µs
# spent 62µs (15+47) within XML::SAX::ExpatXS::Preload::BEGIN@13 which was called: # once (15µs+47µs) by XML::SAX::ExpatXS::BEGIN@6 at line 13
use vars qw($VERSION);
# spent 62µs making 1 call to XML::SAX::ExpatXS::Preload::BEGIN@13 # spent 47µs making 1 call to vars::import
14
1512µs$VERSION = '0.01';
16
17
# spent 126ms (116+10.3) within XML::SAX::ExpatXS::Preload::get_end_element which was called 5000 times, avg 25µs/call: # 5000 times (116ms+10.3ms) by XML::SAX::ExpatXS::_parse at line 147 of XML/SAX/ExpatXS.pm, avg 25µs/call
sub get_end_element {
183000095.5ms my $self = shift;
19
20 my $method;
21 my $callbacks;
2250005.57ms if (exists $self->{ParseOptions}) {
23 $callbacks = $self->{ParseOptions};
24 }
25 else {
26 $callbacks = $self;
27 }
28
291000029.4ms500010.3ms if (0) { # dummy to make elsif's below compile
# spent 10.3ms making 5000 calls to UNIVERSAL::can, avg 2µs/call
30 }
31 elsif (defined $callbacks->{'ContentHandler'} and $method = $callbacks->{'ContentHandler'}->can('end_element') ) {
32 my $handler = $callbacks->{'ContentHandler'};
33 $self->{Methods}->{'end_element'} = sub { $method->($handler, @_) };
34 }
35 elsif (defined $callbacks->{'DocumentHandler'} and $method = $callbacks->{'DocumentHandler'}->can('end_element') ) {
36 my $handler = $callbacks->{'DocumentHandler'};
37 $self->{Methods}->{'end_element'} = sub { $method->($handler, @_) };
38 }
39 elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('end_element') ) {
40 my $handler = $callbacks->{'Handler'};
411852991.28s1852999.08s
# spent 10.6s (1.47+9.08) within XML::SAX::ExpatXS::Preload::__ANON__[/usr/lib/perl5/XML/SAX/ExpatXS/Preload.pm:41] which was called 185299 times, avg 57µs/call: # 185299 times (1.47s+9.08s) by XML::SAX::ExpatXS::ParseString at line 163 of XML/SAX/ExpatXS.pm, avg 57µs/call
$self->{Methods}->{'end_element'} = sub { $method->($handler, @_) };
# spent 9.08s making 185299 calls to MARC::File::SAX::end_element, avg 49µs/call
42 }
43 elsif (defined $callbacks->{'ContentHandler'} and $callbacks->{'ContentHandler'}->can('AUTOLOAD') ) {
44 my $res = eval { $callbacks->{'ContentHandler'}->end_element(@_) };
45 if ($@) {
46 die $@;
47 }
48 else {
49 my $handler = $callbacks->{'ContentHandler'};
50 $self->{Methods}->{'end_element'} = sub { $handler->end_element(@_) };
51 }
52 }
53 elsif (defined $callbacks->{'DocumentHandler'} and $callbacks->{'DocumentHandler'}->can('AUTOLOAD') ) {
54 my $res = eval { $callbacks->{'DocumentHandler'}->end_element(@_) };
55 if ($@) {
56 die $@;
57 }
58 else {
59 my $handler = $callbacks->{'DocumentHandler'};
60 $self->{Methods}->{'end_element'} = sub { $handler->end_element(@_) };
61 }
62 }
63 elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
64 my $res = eval { $callbacks->{'Handler'}->end_element(@_) };
65 if ($@) {
66 die $@;
67 }
68 else {
69 my $handler = $callbacks->{'Handler'};
70 $self->{Methods}->{'end_element'} = sub { $handler->end_element(@_) };
71 }
72 }
73 else {
74 $self->{Methods}->{'end_element'} = sub { };
75 }
76
77return 1;
78}
79
80
# spent 122ms (111+10.2) within XML::SAX::ExpatXS::Preload::get_comment which was called 5000 times, avg 24µs/call: # 5000 times (111ms+10.2ms) by XML::SAX::ExpatXS::_parse at line 149 of XML/SAX/ExpatXS.pm, avg 24µs/call
sub get_comment {
813000094.3ms my $self = shift;
82
83 my $method;
84 my $callbacks;
8550005.50ms if (exists $self->{ParseOptions}) {
86 $callbacks = $self->{ParseOptions};
87 }
88 else {
89 $callbacks = $self;
90 }
91
921000027.8ms500010.2ms if (0) { # dummy to make elsif's below compile
# spent 10.2ms making 5000 calls to UNIVERSAL::can, avg 2µs/call
93 }
94 elsif (defined $callbacks->{'DocumentHandler'} and $method = $callbacks->{'DocumentHandler'}->can('comment') ) {
95 my $handler = $callbacks->{'DocumentHandler'};
96 $self->{Methods}->{'comment'} = sub { $method->($handler, @_) };
97 }
98 elsif (defined $callbacks->{'LexicalHandler'} and $method = $callbacks->{'LexicalHandler'}->can('comment') ) {
99 my $handler = $callbacks->{'LexicalHandler'};
100 $self->{Methods}->{'comment'} = sub { $method->($handler, @_) };
101 }
102 elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('comment') ) {
103 my $handler = $callbacks->{'Handler'};
104 $self->{Methods}->{'comment'} = sub { $method->($handler, @_) };
105 }
106 elsif (defined $callbacks->{'DocumentHandler'} and $callbacks->{'DocumentHandler'}->can('AUTOLOAD') ) {
107 my $res = eval { $callbacks->{'DocumentHandler'}->comment(@_) };
108 if ($@) {
109 die $@;
110 }
111 else {
112 my $handler = $callbacks->{'DocumentHandler'};
113 $self->{Methods}->{'comment'} = sub { $handler->comment(@_) };
114 }
115 }
116 elsif (defined $callbacks->{'LexicalHandler'} and $callbacks->{'LexicalHandler'}->can('AUTOLOAD') ) {
117 my $res = eval { $callbacks->{'LexicalHandler'}->comment(@_) };
118 if ($@) {
119 die $@;
120 }
121 else {
122 my $handler = $callbacks->{'LexicalHandler'};
123 $self->{Methods}->{'comment'} = sub { $handler->comment(@_) };
124 }
125 }
126 elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
127 my $res = eval { $callbacks->{'Handler'}->comment(@_) };
128 if ($@) {
129 die $@;
130 }
131 else {
132 my $handler = $callbacks->{'Handler'};
133 $self->{Methods}->{'comment'} = sub { $handler->comment(@_) };
134 }
135 }
136 else {
137 $self->{Methods}->{'comment'} = sub { };
138 }
139
140return 1;
141}
142
143
# spent 124ms (113+10.3) within XML::SAX::ExpatXS::Preload::get_characters which was called 5000 times, avg 25µs/call: # 5000 times (113ms+10.3ms) by XML::SAX::ExpatXS::_parse at line 148 of XML/SAX/ExpatXS.pm, avg 25µs/call
sub get_characters {
1443000094.6ms my $self = shift;
145
146 my $method;
147 my $callbacks;
14850005.42ms if (exists $self->{ParseOptions}) {
149 $callbacks = $self->{ParseOptions};
150 }
151 else {
152 $callbacks = $self;
153 }
154
1551000028.9ms500010.3ms if (0) { # dummy to make elsif's below compile
# spent 10.3ms making 5000 calls to UNIVERSAL::can, avg 2µs/call
156 }
157 elsif (defined $callbacks->{'ContentHandler'} and $method = $callbacks->{'ContentHandler'}->can('characters') ) {
158 my $handler = $callbacks->{'ContentHandler'};
159 $self->{Methods}->{'characters'} = sub { $method->($handler, @_) };
160 }
161 elsif (defined $callbacks->{'DocumentHandler'} and $method = $callbacks->{'DocumentHandler'}->can('characters') ) {
162 my $handler = $callbacks->{'DocumentHandler'};
163 $self->{Methods}->{'characters'} = sub { $method->($handler, @_) };
164 }
165 elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('characters') ) {
166 my $handler = $callbacks->{'Handler'};
1673655982.57s3655982.28s
# spent 5.29s (3.01+2.28) within XML::SAX::ExpatXS::Preload::__ANON__[/usr/lib/perl5/XML/SAX/ExpatXS/Preload.pm:167] which was called 365598 times, avg 14µs/call: # 365598 times (3.01s+2.28s) by XML::SAX::ExpatXS::ParseString at line 163 of XML/SAX/ExpatXS.pm, avg 14µs/call
$self->{Methods}->{'characters'} = sub { $method->($handler, @_) };
# spent 2.28s making 365598 calls to MARC::File::SAX::characters, avg 6µs/call
168 }
169 elsif (defined $callbacks->{'ContentHandler'} and $callbacks->{'ContentHandler'}->can('AUTOLOAD') ) {
170 my $res = eval { $callbacks->{'ContentHandler'}->characters(@_) };
171 if ($@) {
172 die $@;
173 }
174 else {
175 my $handler = $callbacks->{'ContentHandler'};
176 $self->{Methods}->{'characters'} = sub { $handler->characters(@_) };
177 }
178 }
179 elsif (defined $callbacks->{'DocumentHandler'} and $callbacks->{'DocumentHandler'}->can('AUTOLOAD') ) {
180 my $res = eval { $callbacks->{'DocumentHandler'}->characters(@_) };
181 if ($@) {
182 die $@;
183 }
184 else {
185 my $handler = $callbacks->{'DocumentHandler'};
186 $self->{Methods}->{'characters'} = sub { $handler->characters(@_) };
187 }
188 }
189 elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
190 my $res = eval { $callbacks->{'Handler'}->characters(@_) };
191 if ($@) {
192 die $@;
193 }
194 else {
195 my $handler = $callbacks->{'Handler'};
196 $self->{Methods}->{'characters'} = sub { $handler->characters(@_) };
197 }
198 }
199 else {
200 $self->{Methods}->{'characters'} = sub { };
201 }
202
203return 1;
204}
205
206
# spent 135ms (123+11.6) within XML::SAX::ExpatXS::Preload::get_start_element which was called 5000 times, avg 27µs/call: # 5000 times (123ms+11.6ms) by XML::SAX::ExpatXS::_parse at line 146 of XML/SAX/ExpatXS.pm, avg 27µs/call
sub get_start_element {
20730000101ms my $self = shift;
208
209 my $method;
210 my $callbacks;
21150005.84ms if (exists $self->{ParseOptions}) {
212 $callbacks = $self->{ParseOptions};
213 }
214 else {
215 $callbacks = $self;
216 }
217
2181000034.1ms500011.6ms if (0) { # dummy to make elsif's below compile
# spent 11.6ms making 5000 calls to UNIVERSAL::can, avg 2µs/call
219 }
220 elsif (defined $callbacks->{'ContentHandler'} and $method = $callbacks->{'ContentHandler'}->can('start_element') ) {
221 my $handler = $callbacks->{'ContentHandler'};
222 $self->{Methods}->{'start_element'} = sub { $method->($handler, @_) };
223 }
224 elsif (defined $callbacks->{'DocumentHandler'} and $method = $callbacks->{'DocumentHandler'}->can('start_element') ) {
225 my $handler = $callbacks->{'DocumentHandler'};
226 $self->{Methods}->{'start_element'} = sub { $method->($handler, @_) };
227 }
228 elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('start_element') ) {
229 my $handler = $callbacks->{'Handler'};
2301852991.29s1852992.03s
# spent 3.55s (1.53+2.03) within XML::SAX::ExpatXS::Preload::__ANON__[/usr/lib/perl5/XML/SAX/ExpatXS/Preload.pm:230] which was called 185299 times, avg 19µs/call: # 185299 times (1.53s+2.03s) by XML::SAX::ExpatXS::ParseString at line 163 of XML/SAX/ExpatXS.pm, avg 19µs/call
$self->{Methods}->{'start_element'} = sub { $method->($handler, @_) };
# spent 2.03s making 185299 calls to MARC::File::SAX::start_element, avg 11µs/call
231 }
232 elsif (defined $callbacks->{'ContentHandler'} and $callbacks->{'ContentHandler'}->can('AUTOLOAD') ) {
233 my $res = eval { $callbacks->{'ContentHandler'}->start_element(@_) };
234 if ($@) {
235 die $@;
236 }
237 else {
238 my $handler = $callbacks->{'ContentHandler'};
239 $self->{Methods}->{'start_element'} = sub { $handler->start_element(@_) };
240 }
241 }
242 elsif (defined $callbacks->{'DocumentHandler'} and $callbacks->{'DocumentHandler'}->can('AUTOLOAD') ) {
243 my $res = eval { $callbacks->{'DocumentHandler'}->start_element(@_) };
244 if ($@) {
245 die $@;
246 }
247 else {
248 my $handler = $callbacks->{'DocumentHandler'};
249 $self->{Methods}->{'start_element'} = sub { $handler->start_element(@_) };
250 }
251 }
252 elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
253 my $res = eval { $callbacks->{'Handler'}->start_element(@_) };
254 if ($@) {
255 die $@;
256 }
257 else {
258 my $handler = $callbacks->{'Handler'};
259 $self->{Methods}->{'start_element'} = sub { $handler->start_element(@_) };
260 }
261 }
262 else {
263 $self->{Methods}->{'start_element'} = sub { };
264 }
265
266return 1;
267}
268
269
27015µs1;
271
272__END__
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.