← Index
NYTProf Performance Profile   « block view • line view • sub view »
For conv.pl
  Run on Sun Nov 14 21:14:18 2010
Reported on Sun Nov 14 21:17:55 2010

Filename/usr/share/perl5/XML/SAX/Expat.pm
StatementsExecuted 6040169 statements in 27.5s
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
1852991113.4s34.3sXML::SAX::Expat::::_handle_startXML::SAX::Expat::_handle_start
607406118.06s22.3sXML::SAX::Expat::::_handle_charXML::SAX::Expat::_handle_char
185299116.05s19.8sXML::SAX::Expat::::_handle_endXML::SAX::Expat::_handle_end
500011297ms2.07sXML::SAX::Expat::::_create_parserXML::SAX::Expat::_create_parser
1500021193ms266msXML::SAX::Expat::::supported_featuresXML::SAX::Expat::supported_features
500011179ms88.5sXML::SAX::Expat::::_parse_stringXML::SAX::Expat::_parse_string
50001170.8ms354msXML::SAX::Expat::::_handle_start_documentXML::SAX::Expat::_handle_start_document
50001168.5ms365msXML::SAX::Expat::::_handle_finalXML::SAX::Expat::_handle_final
50001137.4ms37.4msXML::SAX::Expat::::_cleanupXML::SAX::Expat::_cleanup
50001117.1ms17.1msXML::SAX::Expat::::_handle_initXML::SAX::Expat::_handle_init
1112.54ms3.43msXML::SAX::Expat::::BEGIN@10XML::SAX::Expat::BEGIN@10
1112.04ms9.19msXML::SAX::Expat::::BEGIN@11XML::SAX::Expat::BEGIN@11
11124µs30µsXML::SAX::Expat::::BEGIN@8XML::SAX::Expat::BEGIN@8
11118µs60µsXML::SAX::Expat::::BEGIN@13XML::SAX::Expat::BEGIN@13
11115µs119µsXML::SAX::Expat::::BEGIN@9XML::SAX::Expat::BEGIN@9
0000s0sXML::SAX::Expat::::_handle_attr_declXML::SAX::Expat::_handle_attr_decl
0000s0sXML::SAX::Expat::::_handle_commentXML::SAX::Expat::_handle_comment
0000s0sXML::SAX::Expat::::_handle_element_declXML::SAX::Expat::_handle_element_decl
0000s0sXML::SAX::Expat::::_handle_end_cdataXML::SAX::Expat::_handle_end_cdata
0000s0sXML::SAX::Expat::::_handle_end_doctypeXML::SAX::Expat::_handle_end_doctype
0000s0sXML::SAX::Expat::::_handle_entity_declXML::SAX::Expat::_handle_entity_decl
0000s0sXML::SAX::Expat::::_handle_notation_declXML::SAX::Expat::_handle_notation_decl
0000s0sXML::SAX::Expat::::_handle_procXML::SAX::Expat::_handle_proc
0000s0sXML::SAX::Expat::::_handle_start_cdataXML::SAX::Expat::_handle_start_cdata
0000s0sXML::SAX::Expat::::_handle_start_doctypeXML::SAX::Expat::_handle_start_doctype
0000s0sXML::SAX::Expat::::_handle_unparsed_entityXML::SAX::Expat::_handle_unparsed_entity
0000s0sXML::SAX::Expat::::_handle_xml_declXML::SAX::Expat::_handle_xml_decl
0000s0sXML::SAX::Expat::::_parse_bytestreamXML::SAX::Expat::_parse_bytestream
0000s0sXML::SAX::Expat::::_parse_characterstreamXML::SAX::Expat::_parse_characterstream
0000s0sXML::SAX::Expat::::_parse_systemidXML::SAX::Expat::_parse_systemid
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1
2###
3# XML::SAX::Expat - SAX2 Driver for Expat (XML::Parser)
4# Originally by Robin Berjon
5###
6
7package XML::SAX::Expat;
8352µs236µs
# spent 30µs (24+6) within XML::SAX::Expat::BEGIN@8 which was called: # once (24µs+6µs) by XML::SAX::ParserFactory::BEGIN@1 at line 8
use strict;
# spent 30µs making 1 call to XML::SAX::Expat::BEGIN@8 # spent 6µs making 1 call to strict::import
9349µs2223µs
# spent 119µs (15+104) within XML::SAX::Expat::BEGIN@9 which was called: # once (15µs+104µs) by XML::SAX::ParserFactory::BEGIN@1 at line 9
use base qw(XML::SAX::Base);
# spent 119µs making 1 call to XML::SAX::Expat::BEGIN@9 # spent 104µs making 1 call to base::import
103161µs13.43ms
# spent 3.43ms (2.54+893µs) within XML::SAX::Expat::BEGIN@10 which was called: # once (2.54ms+893µs) by XML::SAX::ParserFactory::BEGIN@1 at line 10
use XML::NamespaceSupport qw();
# spent 3.43ms making 1 call to XML::SAX::Expat::BEGIN@10
113162µs19.19ms
# spent 9.19ms (2.04+7.15) within XML::SAX::Expat::BEGIN@11 which was called: # once (2.04ms+7.15ms) by XML::SAX::ParserFactory::BEGIN@1 at line 11
use XML::Parser qw();
# spent 9.19ms making 1 call to XML::SAX::Expat::BEGIN@11
12
1332.47ms2102µs
# spent 60µs (18+42) within XML::SAX::Expat::BEGIN@13 which was called: # once (18µs+42µs) by XML::SAX::ParserFactory::BEGIN@1 at line 13
use vars qw($VERSION);
# spent 60µs making 1 call to XML::SAX::Expat::BEGIN@13 # spent 42µs making 1 call to vars::import
1412µs$VERSION = '0.40';
15
16
17#,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,#
18#`,`, Variations on parse `,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,#
19#```````````````````````````````````````````````````````````````````#
20
21#-------------------------------------------------------------------#
22# CharacterStream
23#-------------------------------------------------------------------#
24sub _parse_characterstream {
25 my $p = shift;
26 my $xml = shift;
27 my $opt = shift;
28
29 my $expat = $p->_create_parser($opt);
30 my $result = $expat->parse($xml);
31 $p->_cleanup;
32 return $result;
33}
34#-------------------------------------------------------------------#
35
36#-------------------------------------------------------------------#
37# ByteStream
38#-------------------------------------------------------------------#
39sub _parse_bytestream {
40 my $p = shift;
41 my $xml = shift;
42 my $opt = shift;
43
44 my $expat = $p->_create_parser($opt);
45 my $result = $expat->parse($xml);
46 $p->_cleanup;
47 return $result;
48}
49#-------------------------------------------------------------------#
50
51#-------------------------------------------------------------------#
52# String
53#-------------------------------------------------------------------#
54
# spent 88.5s (179ms+88.3) within XML::SAX::Expat::_parse_string which was called 5000 times, avg 17.7ms/call: # 5000 times (179ms+88.3s) by XML::SAX::Base::parse at line 2602 of XML/SAX/Base.pm, avg 17.7ms/call
sub _parse_string {
5550006.05ms my $p = shift;
56500010.4ms my $xml = shift;
5750005.50ms my $opt = shift;
58
59500023.1ms50002.07s my $expat = $p->_create_parser($opt);
# spent 2.07s making 5000 calls to XML::SAX::Expat::_create_parser, avg 413µs/call
60500072.1ms1000086.4s my $result = $expat->parse($xml);
# spent 86.2s making 5000 calls to XML::Parser::parse, avg 17.2ms/call # spent 127ms making 5000 calls to XML::Parser::Expat::DESTROY, avg 25µs/call
61500026.7ms500037.4ms $p->_cleanup;
# spent 37.4ms making 5000 calls to XML::SAX::Expat::_cleanup, avg 7µs/call
62500073.2ms return $result;
63}
64#-------------------------------------------------------------------#
65
66#-------------------------------------------------------------------#
67# SystemId
68#-------------------------------------------------------------------#
69sub _parse_systemid {
70 my $p = shift;
71 my $xml = shift;
72 my $opt = shift;
73
74 my $expat = $p->_create_parser($opt);
75 my $result = $expat->parsefile($xml);
76 $p->_cleanup;
77 return $result;
78}
79#-------------------------------------------------------------------#
80
81
82#-------------------------------------------------------------------#
83# $p->_create_parser(\%options)
84#-------------------------------------------------------------------#
85
# spent 2.07s (297ms+1.77) within XML::SAX::Expat::_create_parser which was called 5000 times, avg 413µs/call: # 5000 times (297ms+1.77s) by XML::SAX::Expat::_parse_string at line 59, avg 413µs/call
sub _create_parser {
8650006.53ms my $self = shift;
8750005.80ms my $opt = shift;
88
8950006.93ms die "ParserReference: parser instance ($self) already parsing\n"
90 if $self->{_InParse};
91
9250006.88ms my $featUri = 'http://xml.org/sax/features/';
93500047.8ms10000602ms my $ppe = ($self->get_feature($featUri . 'external-general-entities') or
# spent 602ms making 10000 calls to XML::SAX::Base::get_feature, avg 60µs/call
94 $self->get_feature($featUri . 'external-parameter-entities') ) ? 1 : 0;
95
96500029.8ms5000273ms my $expat = XML::Parser->new( ParseParamEnt => $ppe );
# spent 273ms making 5000 calls to XML::Parser::new, avg 55µs/call
9750007.88ms $expat->{__XSE} = $self;
98500059.1ms5000791ms $expat->setHandlers(
# spent 791ms making 5000 calls to XML::Parser::setHandlers, avg 158µs/call
99 Init => \&_handle_init,
100 Final => \&_handle_final,
101 Start => \&_handle_start,
102 End => \&_handle_end,
103 Char => \&_handle_char,
104 Comment => \&_handle_comment,
105 Proc => \&_handle_proc,
106 CdataStart => \&_handle_start_cdata,
107 CdataEnd => \&_handle_end_cdata,
108 Unparsed => \&_handle_unparsed_entity,
109 Notation => \&_handle_notation_decl,
110 #ExternEnt
111 #ExternEntFin
112 Entity => \&_handle_entity_decl,
113 Element => \&_handle_element_decl,
114 Attlist => \&_handle_attr_decl,
115 Doctype => \&_handle_start_doctype,
116 DoctypeFin => \&_handle_end_doctype,
117 XMLDecl => \&_handle_xml_decl,
118 );
119
12050009.74ms $self->{_InParse} = 1;
12150009.68ms $self->{_NodeStack} = [];
12250008.67ms $self->{_NSStack} = [];
123500044.7ms5000103ms $self->{_NSHelper} = XML::NamespaceSupport->new({xmlns => 1});
# spent 103ms making 5000 calls to XML::NamespaceSupport::new, avg 21µs/call
12450008.32ms $self->{_started} = 0;
125
126500024.6ms return $expat;
127}
128#-------------------------------------------------------------------#
129
130
131#-------------------------------------------------------------------#
132# $p->_cleanup
133#-------------------------------------------------------------------#
134
# spent 37.4ms within XML::SAX::Expat::_cleanup which was called 5000 times, avg 7µs/call: # 5000 times (37.4ms+0s) by XML::SAX::Expat::_parse_string at line 61, avg 7µs/call
sub _cleanup {
13550006.74ms my $self = shift;
136
13750007.15ms $self->{_InParse} = 0;
138500027.3ms delete $self->{_NodeStack};
139}
140#-------------------------------------------------------------------#
141
142
143
144#,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,#
145#`,`, Expat Handlers ,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,#
146#```````````````````````````````````````````````````````````````````#
147
148#-------------------------------------------------------------------#
149# _handle_init
150#-------------------------------------------------------------------#
151500020.7ms
# spent 17.1ms within XML::SAX::Expat::_handle_init which was called 5000 times, avg 3µs/call: # 5000 times (17.1ms+0s) by XML::Parser::parse at line 181 of XML/Parser.pm, avg 3µs/call
sub _handle_init {
152 #my $self = shift()->{__XSE};
153
154 #my $document = {};
155 #push @{$self->{_NodeStack}}, $document;
156 #$self->SUPER::start_document($document);
157}
158#-------------------------------------------------------------------#
159
160#-------------------------------------------------------------------#
161# _handle_final
162#-------------------------------------------------------------------#
163
# spent 365ms (68.5+297) within XML::SAX::Expat::_handle_final which was called 5000 times, avg 73µs/call: # 5000 times (68.5ms+297ms) by XML::Parser::parse at line 200 of XML/Parser.pm, avg 73µs/call
sub _handle_final {
16450008.85ms my $self = shift()->{__XSE};
165
166 #my $document = pop @{$self->{_NodeStack}};
167500058.3ms5000297ms return $self->SUPER::end_document({});
# spent 297ms making 5000 calls to XML::SAX::Base::end_document, avg 59µs/call
168}
169#-------------------------------------------------------------------#
170
171#-------------------------------------------------------------------#
172# _handle_start
173#-------------------------------------------------------------------#
174
# spent 34.3s (13.4+20.9) within XML::SAX::Expat::_handle_start which was called 185299 times, avg 185µs/call: # 185299 times (13.4s+20.9s) by XML::Parser::Expat::ParseString at line 474 of XML/Parser/Expat.pm, avg 185µs/call
sub _handle_start {
175185299293ms my $self = shift()->{__XSE};
176185299215ms my $e_name = shift;
177185299523ms my %attr = @_;
178
179 # start_document data
180185299245ms5000354ms $self->_handle_start_document({}) unless $self->{_started};
# spent 354ms making 5000 calls to XML::SAX::Expat::_handle_start_document, avg 71µs/call
181
182 # take care of namespaces
183185299225ms my $nsh = $self->{_NSHelper};
184185299838ms1852991.59s $nsh->push_context;
# spent 1.59s making 185299 calls to XML::NamespaceSupport::push_context, avg 9µs/call
185185299178ms my @new_ns;
1861852991.11s for my $k (grep !index($_, 'xmlns'), keys %attr) {
187 $k =~ m/^xmlns(:(.*))?$/;
188 my $prefix = $2 || '';
189 $nsh->declare_prefix($prefix, $attr{$k});
190 my $ns = {
191 Prefix => $prefix,
192 NamespaceURI => $attr{$k},
193 };
194 push @new_ns, $ns;
195 $self->SUPER::start_prefix_mapping($ns);
196 }
197185299347ms push @{$self->{_NSStack}}, \@new_ns;
198
199
200 # create the attributes
201185299176ms my %saxattr;
2022943811.51s2943818.28s map {
# spent 8.28s making 294381 calls to XML::NamespaceSupport::process_attribute_name, avg 28µs/call
203185299815ms my ($ns,$prefix,$lname) = $nsh->process_attribute_name($_);
2042943811.97s $saxattr{'{' . ($ns || '') . '}' . $lname} = {
205 Name => $_,
206 LocalName => $lname || '',
207 Prefix => $prefix || '',
208 Value => $attr{$_},
209 NamespaceURI => $ns || '',
210 };
211 } keys %attr;
212
213
214 # now the element
215185299930ms1852995.14s my ($ns,$prefix,$lname) = $nsh->process_element_name($e_name);
# spent 5.14s making 185299 calls to XML::NamespaceSupport::process_element_name, avg 28µs/call
216185299825ms my $element = {
217 Name => $e_name,
218 LocalName => $lname || '',
219 Prefix => $prefix || '',
220 NamespaceURI => $ns || '',
221 Attributes => \%saxattr,
222 };
223
224185299297ms push @{$self->{_NodeStack}}, $element;
2251852992.27s1852995.54s $self->SUPER::start_element($element);
# spent 5.54s making 185299 calls to XML::SAX::Base::start_element, avg 30µs/call
226}
227#-------------------------------------------------------------------#
228
229#-------------------------------------------------------------------#
230# _handle_end
231#-------------------------------------------------------------------#
232
# spent 19.8s (6.05+13.8) within XML::SAX::Expat::_handle_end which was called 185299 times, avg 107µs/call: # 185299 times (6.05s+13.8s) by XML::Parser::Expat::ParseString at line 474 of XML/Parser/Expat.pm, avg 107µs/call
sub _handle_end {
233185299287ms my $self = shift()->{__XSE};
234
2351852991.17s my %element = %{pop @{$self->{_NodeStack}}};
236185299586ms delete $element{Attributes};
2371852991.41s18529912.7s $self->SUPER::end_element(\%element);
# spent 12.7s making 185299 calls to XML::SAX::Base::end_element, avg 68µs/call
238
239185299285ms my $prev_ns = pop @{$self->{_NSStack}};
240185299490ms for my $ns (@$prev_ns) {
241 $self->SUPER::end_prefix_mapping( { %$ns } );
242 }
2431852991.61s1852991.12s $self->{_NSHelper}->pop_context;
# spent 1.12s making 185299 calls to XML::NamespaceSupport::pop_context, avg 6µs/call
244}
245#-------------------------------------------------------------------#
246
247#-------------------------------------------------------------------#
248# _handle_char
249#-------------------------------------------------------------------#
250
# spent 22.3s (8.06+14.3) within XML::SAX::Expat::_handle_char which was called 607406 times, avg 37µs/call: # 607406 times (8.06s+14.3s) by XML::Parser::Expat::ParseString at line 474 of XML/Parser/Expat.pm, avg 37µs/call
sub _handle_char {
2516074061.09s $_[0]->{__XSE}->_handle_start_document({}) unless $_[0]->{__XSE}->{_started};
2526074066.91s60740614.3s $_[0]->{__XSE}->SUPER::characters({ Data => $_[1] });
# spent 14.3s making 607406 calls to XML::SAX::Base::characters, avg 24µs/call
253}
254#-------------------------------------------------------------------#
255
256#-------------------------------------------------------------------#
257# _handle_comment
258#-------------------------------------------------------------------#
259sub _handle_comment {
260 $_[0]->{__XSE}->_handle_start_document({}) unless $_[0]->{__XSE}->{_started};
261 $_[0]->{__XSE}->SUPER::comment({ Data => $_[1] });
262}
263#-------------------------------------------------------------------#
264
265#-------------------------------------------------------------------#
266# _handle_proc
267#-------------------------------------------------------------------#
268sub _handle_proc {
269 $_[0]->{__XSE}->_handle_start_document({}) unless $_[0]->{__XSE}->{_started};
270 $_[0]->{__XSE}->SUPER::processing_instruction({ Target => $_[1], Data => $_[2] });
271}
272#-------------------------------------------------------------------#
273
274#-------------------------------------------------------------------#
275# _handle_start_cdata
276#-------------------------------------------------------------------#
277sub _handle_start_cdata {
278 $_[0]->{__XSE}->SUPER::start_cdata( {} );
279}
280#-------------------------------------------------------------------#
281
282#-------------------------------------------------------------------#
283# _handle_end_cdata
284#-------------------------------------------------------------------#
285sub _handle_end_cdata {
286 $_[0]->{__XSE}->SUPER::end_cdata( {} );
287}
288#-------------------------------------------------------------------#
289
290#-------------------------------------------------------------------#
291# _handle_xml_decl
292#-------------------------------------------------------------------#
293sub _handle_xml_decl {
294 my $self = shift()->{__XSE};
295 my $version = shift;
296 my $encoding = shift;
297 my $standalone = shift;
298
299 if (not defined $standalone) { $standalone = ''; }
300 elsif ($standalone) { $standalone = 'yes'; }
301 else { $standalone = 'no'; }
302 my $xd = {
303 Version => $version,
304 Encoding => $encoding,
305 Standalone => $standalone,
306 };
307 #$self->SUPER::xml_decl($xd);
308 $self->_handle_start_document($xd);
309}
310#-------------------------------------------------------------------#
311
312#-------------------------------------------------------------------#
313# _handle_notation_decl
314#-------------------------------------------------------------------#
315sub _handle_notation_decl {
316 my $self = shift()->{__XSE};
317 my $notation = shift;
318 shift;
319 my $system = shift;
320 my $public = shift;
321
322 my $not = {
323 Name => $notation,
324 PublicId => $public,
325 SystemId => $system,
326 };
327 $self->SUPER::notation_decl($not);
328}
329#-------------------------------------------------------------------#
330
331#-------------------------------------------------------------------#
332# _handle_unparsed_entity
333#-------------------------------------------------------------------#
334sub _handle_unparsed_entity {
335 my $self = shift()->{__XSE};
336 my $name = shift;
337 my $system = shift;
338 my $public = shift;
339 my $notation = shift;
340
341 my $ue = {
342 Name => $name,
343 PublicId => $public,
344 SystemId => $system,
345 Notation => $notation,
346 };
347 $self->SUPER::unparsed_entity_decl($ue);
348}
349#-------------------------------------------------------------------#
350
351#-------------------------------------------------------------------#
352# _handle_element_decl
353#-------------------------------------------------------------------#
354sub _handle_element_decl {
355 $_[0]->{__XSE}->SUPER::element_decl({ Name => $_[1], Model => "$_[2]" });
356}
357#-------------------------------------------------------------------#
358
359
360#-------------------------------------------------------------------#
361# _handle_attr_decl
362#-------------------------------------------------------------------#
363sub _handle_attr_decl {
364 my $self = shift()->{__XSE};
365 my $ename = shift;
366 my $aname = shift;
367 my $type = shift;
368 my $default = shift;
369 my $fixed = shift;
370
371 my ($vd, $value);
372 if ($fixed) {
373 $vd = '#FIXED';
374 $default =~ s/^(?:"|')//; #"
375 $default =~ s/(?:"|')$//; #"
376 $value = $default;
377 }
378 else {
379 if ($default =~ m/^#/) {
380 $vd = $default;
381 $value = '';
382 }
383 else {
384 $vd = ''; # maybe there's a default ?
385 $default =~ s/^(?:"|')//; #"
386 $default =~ s/(?:"|')$//; #"
387 $value = $default;
388 }
389 }
390
391 my $at = {
392 eName => $ename,
393 aName => $aname,
394 Type => $type,
395 ValueDefault => $vd,
396 Value => $value,
397 };
398 $self->SUPER::attribute_decl($at);
399}
400#-------------------------------------------------------------------#
401
402#-------------------------------------------------------------------#
403# _handle_entity_decl
404#-------------------------------------------------------------------#
405sub _handle_entity_decl {
406 my $self = shift()->{__XSE};
407 my $name = shift;
408 my $val = shift;
409 my $sys = shift;
410 my $pub = shift;
411 my $ndata = shift;
412 my $isprm = shift;
413
414 # deal with param ents
415 if ($isprm) {
416 $name = '%' . $name;
417 }
418
419 # int vs ext
420 if ($val) {
421 my $ent = {
422 Name => $name,
423 Value => $val,
424 };
425 $self->SUPER::internal_entity_decl($ent);
426 }
427 else {
428 my $ent = {
429 Name => $name,
430 PublicId => $pub || '',
431 SystemId => $sys,
432 };
433 $self->SUPER::external_entity_decl($ent);
434 }
435}
436#-------------------------------------------------------------------#
437
438
439#-------------------------------------------------------------------#
440# _handle_start_doctype
441#-------------------------------------------------------------------#
442sub _handle_start_doctype {
443 my $self = shift()->{__XSE};
444 my $name = shift;
445 my $sys = shift;
446 my $pub = shift;
447
448 $self->_handle_start_document({}) unless $self->{_started};
449
450 my $dtd = {
451 Name => $name,
452 SystemId => $sys,
453 PublicId => $pub,
454 };
455 $self->SUPER::start_dtd($dtd);
456}
457#-------------------------------------------------------------------#
458
459#-------------------------------------------------------------------#
460# _handle_end_doctype
461#-------------------------------------------------------------------#
462sub _handle_end_doctype {
463 $_[0]->{__XSE}->SUPER::end_dtd( {} );
464}
465#-------------------------------------------------------------------#
466
467
468#-------------------------------------------------------------------#
469# _handle_start_document
470#-------------------------------------------------------------------#
471
# spent 354ms (70.8+283) within XML::SAX::Expat::_handle_start_document which was called 5000 times, avg 71µs/call: # 5000 times (70.8ms+283ms) by XML::SAX::Expat::_handle_start at line 180, avg 71µs/call
sub _handle_start_document {
472500047.8ms5000283ms $_[0]->SUPER::start_document($_[1]);
# spent 283ms making 5000 calls to XML::SAX::Base::start_document, avg 57µs/call
473500023.4ms $_[0]->{_started} = 1;
474}
475#-------------------------------------------------------------------#
476
477
478#-------------------------------------------------------------------#
479# supported_features
480#-------------------------------------------------------------------#
481
# spent 266ms (193+73.8) within XML::SAX::Expat::supported_features which was called 15000 times, avg 18µs/call: # 10000 times (120ms+46.6ms) by XML::SAX::Base::get_feature at line 2710 of XML/SAX/Base.pm, avg 17µs/call # 5000 times (72.2ms+27.2ms) by XML::SAX::Base::set_feature at line 2740 of XML/SAX/Base.pm, avg 20µs/call
sub supported_features {
482 return (
48315000181ms1500073.8ms $_[0]->SUPER::supported_features,
# spent 73.8ms making 15000 calls to XML::SAX::Base::supported_features, avg 5µs/call
484 'http://xml.org/sax/features/external-general-entities',
485 'http://xml.org/sax/features/external-parameter-entities',
486 );
487}
488#-------------------------------------------------------------------#
489
490
491
492
493
494#,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,#
495#`,`, Private Helpers `,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,#
496#```````````````````````````````````````````````````````````````````#
497
498#-------------------------------------------------------------------#
499# _create_node
500#-------------------------------------------------------------------#
501#sub _create_node {
502# shift;
503# # this may check for a factory later
504# return {@_};
505#}
506#-------------------------------------------------------------------#
507
508
50914µs1;
510#,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,#
511#`,`, Documentation `,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,#
512#```````````````````````````````````````````````````````````````````#
513
514=pod
515
- -
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.