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

Filename/usr/share/perl5/MARC/File/SAX.pm
StatementsExecuted 2972668 statements in 9.14s
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
185299213.73s9.26sMARC::File::SAX::::end_elementMARC::File::SAX::end_element
365598212.19s2.19sMARC::File::SAX::::charactersMARC::File::SAX::characters
185299212.01s2.07sMARC::File::SAX::::start_elementMARC::File::SAX::start_element
50001148.7ms48.7msMARC::File::SAX::::newMARC::File::SAX::new
50001128.6ms28.6msMARC::File::SAX::::recordMARC::File::SAX::record
1116.18ms7.17msMARC::File::SAX::::BEGIN@12MARC::File::SAX::BEGIN@12
1112.33ms70.4msMARC::File::SAX::::BEGIN@14MARC::File::SAX::BEGIN@14
1112.10ms14.7msMARC::File::SAX::::BEGIN@10MARC::File::SAX::BEGIN@10
11151µs25.1msMARC::File::SAX::::BEGIN@11MARC::File::SAX::BEGIN@11
11122µs30µsMARC::File::SAX::::BEGIN@9MARC::File::SAX::BEGIN@9
11118µs57µsMARC::File::SAX::::BEGIN@13MARC::File::SAX::BEGIN@13
0000s0sMARC::File::SAX::::recordsMARC::File::SAX::records
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package MARC::File::SAX;
2
3=head1 NAME
4
- -
9346µs238µs
# spent 30µs (22+8) within MARC::File::SAX::BEGIN@9 which was called: # once (22µs+8µs) by MARC::File::XML::BEGIN@9 at line 9
use strict;
# spent 30µs making 1 call to MARC::File::SAX::BEGIN@9 # spent 8µs making 1 call to strict::import
103172µs214.7ms
# spent 14.7ms (2.10+12.6) within MARC::File::SAX::BEGIN@10 which was called: # once (2.10ms+12.6ms) by MARC::File::XML::BEGIN@9 at line 10
use XML::SAX;
# spent 14.7ms making 1 call to MARC::File::SAX::BEGIN@10 # spent 55µs making 1 call to Exporter::import
11390µs250.1ms
# spent 25.1ms (51µs+25.0) within MARC::File::SAX::BEGIN@11 which was called: # once (51µs+25.0ms) by MARC::File::XML::BEGIN@9 at line 11
use base qw( XML::SAX::Base );
# spent 25.1ms making 1 call to MARC::File::SAX::BEGIN@11 # spent 25.0ms making 1 call to base::import
123263µs27.26ms
# spent 7.17ms (6.18+982µs) within MARC::File::SAX::BEGIN@12 which was called: # once (6.18ms+982µs) by MARC::File::XML::BEGIN@9 at line 12
use Data::Dumper;
# spent 7.17ms making 1 call to MARC::File::SAX::BEGIN@12 # spent 89µs making 1 call to Exporter::import
13346µs296µs
# spent 57µs (18+39) within MARC::File::SAX::BEGIN@13 which was called: # once (18µs+39µs) by MARC::File::XML::BEGIN@9 at line 13
use MARC::Record;
# spent 57µs making 1 call to MARC::File::SAX::BEGIN@13 # spent 39µs making 1 call to Exporter::import
143879µs270.5ms
# spent 70.4ms (2.33+68.1) within MARC::File::SAX::BEGIN@14 which was called: # once (2.33ms+68.1ms) by MARC::File::XML::BEGIN@9 at line 14
use MARC::Charset qw(utf8_to_marc8);
# spent 70.4ms making 1 call to MARC::File::SAX::BEGIN@14 # spent 89µs making 1 call to Exporter::import
15
16=head2 new()
17
- -
22
# spent 48.7ms within MARC::File::SAX::new which was called 5000 times, avg 10µs/call: # 5000 times (48.7ms+0s) by MARC::File::XML::decode at line 438 of MARC/File/XML.pm, avg 10µs/call
sub new {
231000053.9ms my $class = shift;
24 return bless {records => []}, ref($class) || $class;
25}
26
27=head2 records()
28
- -
33sub records {
34 return shift->{records};
35}
36
37=head2 record()
38
- -
44
# spent 28.6ms within MARC::File::SAX::record which was called 5000 times, avg 6µs/call: # 5000 times (28.6ms+0s) by MARC::File::XML::decode at line 447 of MARC/File/XML.pm, avg 6µs/call
sub record {
45500031.1ms return shift->{records}[0];
46}
47
48
# spent 2.07s (2.01+58.6ms) within MARC::File::SAX::start_element which was called 185299 times, avg 11µs/call: # 180299 times (1.94s+0s) by XML::SAX::Base::__ANON__[/usr/share/perl5/XML/SAX/Base.pm:292] at line 292 of XML/SAX/Base.pm, avg 11µs/call # 5000 times (68.0ms+58.6ms) by XML::SAX::Base::start_element at line 293 of XML/SAX/Base.pm, avg 25µs/call
sub start_element {
497345202.33s my ( $self, $element ) = @_;
50 my $name = $element->{ LocalName };
51500058.6ms if ( $name eq 'record' ) {
# spent 58.6ms making 5000 calls to MARC::Record::new, avg 12µs/call
52 $self->{ record } = MARC::Record->new();
53 } elsif ( $name eq 'leader' ) {
54 $self->{ tag } = 'LDR';
55 } elsif ( $name eq 'controlfield' ) {
56 $self->{ tag } = $element->{ Attributes }{ '{}tag' }{ Value };
57 } elsif ( $name eq 'datafield' ) {
58 $self->{ tag } = $element->{ Attributes }{ '{}tag' }{ Value };
59 $self->{ i1 } = $element->{ Attributes }{ '{}ind1' }{ Value };
60 $self->{ i2 } = $element->{ Attributes }{ '{}ind2' }{ Value };
61 } elsif ( $name eq 'subfield' ) {
62 $self->{ subcode } = $element->{ Attributes }{ '{}code' }{ Value };
63 }
64}
65
66
# spent 9.26s (3.73+5.53) within MARC::File::SAX::end_element which was called 185299 times, avg 50µs/call: # 180299 times (3.61s+5.47s) by XML::SAX::Base::__ANON__[/usr/share/perl5/XML/SAX/Base.pm:2201] at line 2201 of XML/SAX/Base.pm, avg 50µs/call # 5000 times (118ms+60.5ms) by XML::SAX::Base::end_element at line 2202 of XML/SAX/Base.pm, avg 36µs/call
sub end_element {
6714919333.92s my ( $self, $element ) = @_;
68 my $name = $element->{ LocalName };
69 if ( $name eq 'subfield' ) {
70 push @{ $self->{ subfields } }, $self->{ subcode };
71
72 if ($self->{ transcode }) {
73 push @{ $self->{ subfields } }, utf8_to_marc8($self->{ chars });
74 } else {
75 push @{ $self->{ subfields } }, $self->{ chars } ;
76 }
77
78 $self->{ chars } = '';
79 $self->{ subcode } = '';
80 } elsif ( $name eq 'controlfield' ) {
81 $self->{ record }->append_fields(
82 MARC::Field->new( $self->{ tag }, $self->{ chars } )
8340000982ms );
# spent 564ms making 20000 calls to MARC::Field::new, avg 28µs/call # spent 418ms making 20000 calls to MARC::Record::append_fields, avg 21µs/call
84 $self->{ chars } = '';
85 $self->{ tag } = '';
86 } elsif ( $name eq 'datafield' ) {
87 $self->{ record }->append_fields(
88 MARC::Field->new(
89 $self->{ tag },
90 $self->{ i1 },
91 $self->{ i2 },
921190824.49s @{ $self->{ subfields } }
# spent 3.24s making 59541 calls to MARC::Field::new, avg 54µs/call # spent 1.24s making 59541 calls to MARC::Record::append_fields, avg 21µs/call
93 )
94 );
95 $self->{ tag } = '';
96 $self->{ i1 } = '';
97 $self->{ i2 } = '';
98 $self->{ subfields } = [];
99 $self->{ chars } = '';
100 } elsif ( $name eq 'leader' ) {
101 my $ldr = $self->{ chars };
102
103 $self->{ transcode }++
104 if (substr($ldr,9,1) eq 'a' and $self->{toMARC8});
105
106 substr($ldr,9,1,' ') if ($self->{ transcode });
107
108500060.5ms $self->{ record }->leader( $ldr );
# spent 60.5ms making 5000 calls to MARC::Record::leader, avg 12µs/call
109 $self->{ chars } = '';
110 $self->{ tag } = '';
111 } elsif ( $name eq 'record' ) {
112 push(@{ $self->{ records } }, $self->{ record });
113 undef $self->{ record };
114 }
115}
116
117
# spent 2.19s within MARC::File::SAX::characters which was called 365598 times, avg 6µs/call: # 360598 times (2.16s+0s) by XML::SAX::Base::__ANON__[/usr/share/perl5/XML/SAX/Base.pm:200] at line 200 of XML/SAX/Base.pm, avg 6µs/call # 5000 times (28.2ms+0s) by XML::SAX::Base::characters at line 201 of XML/SAX/Base.pm, avg 6µs/call
sub characters {
1187311962.80s my ( $self, $chars ) = @_;
119 if (
120 ( exists $self->{ subcode } && $self->{ subcode } ne '')
121 || ( $self->{ tag } && ( $self->{ tag } eq 'LDR' || $self->{ tag } < 10 ))
122 ) {
123 $self->{ chars } .= $chars->{ Data };
124 }
125}
126
12714µs1;
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.