← 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:10 2010

Filename/usr/share/perl5/MARC/File/SAX.pm
StatementsExecuted 2972668 statements in 9.39s
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
185299113.71s9.08sMARC::File::SAX::::end_elementMARC::File::SAX::end_element
365598112.28s2.28sMARC::File::SAX::::charactersMARC::File::SAX::characters
185299111.97s2.03sMARC::File::SAX::::start_elementMARC::File::SAX::start_element
50001140.2ms40.2msMARC::File::SAX::::newMARC::File::SAX::new
50001123.7ms23.7msMARC::File::SAX::::recordMARC::File::SAX::record
1116.01ms6.86msMARC::File::SAX::::BEGIN@12MARC::File::SAX::BEGIN@12
1112.33ms70.3msMARC::File::SAX::::BEGIN@14MARC::File::SAX::BEGIN@14
1111.84ms13.7msMARC::File::SAX::::BEGIN@10MARC::File::SAX::BEGIN@10
11121µs28µsMARC::File::SAX::::BEGIN@9MARC::File::SAX::BEGIN@9
11118µs23.0msMARC::File::SAX::::BEGIN@11MARC::File::SAX::BEGIN@11
11116µs52µ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
- -
9342µs235µs
# spent 28µs (21+7) within MARC::File::SAX::BEGIN@9 which was called: # once (21µs+7µs) by MARC::File::XML::BEGIN@9 at line 9
use strict;
# spent 28µs making 1 call to MARC::File::SAX::BEGIN@9 # spent 7µs making 1 call to strict::import
103162µs213.7ms
# spent 13.7ms (1.84+11.8) within MARC::File::SAX::BEGIN@10 which was called: # once (1.84ms+11.8ms) by MARC::File::XML::BEGIN@9 at line 10
use XML::SAX;
# spent 13.7ms making 1 call to MARC::File::SAX::BEGIN@10 # spent 40µs making 1 call to Exporter::import
11352µs246.0ms
# spent 23.0ms (18µs+23.0) within MARC::File::SAX::BEGIN@11 which was called: # once (18µs+23.0ms) by MARC::File::XML::BEGIN@9 at line 11
use base qw( XML::SAX::Base );
# spent 23.0ms making 1 call to MARC::File::SAX::BEGIN@11 # spent 23.0ms making 1 call to base::import
123215µs26.92ms
# spent 6.86ms (6.01+845µs) within MARC::File::SAX::BEGIN@12 which was called: # once (6.01ms+845µs) by MARC::File::XML::BEGIN@9 at line 12
use Data::Dumper;
# spent 6.86ms making 1 call to MARC::File::SAX::BEGIN@12 # spent 61µs making 1 call to Exporter::import
13344µs288µs
# spent 52µs (16+36) within MARC::File::SAX::BEGIN@13 which was called: # once (16µs+36µs) by MARC::File::XML::BEGIN@9 at line 13
use MARC::Record;
# spent 52µs making 1 call to MARC::File::SAX::BEGIN@13 # spent 36µs making 1 call to Exporter::import
143878µs270.4ms
# spent 70.3ms (2.33+67.9) within MARC::File::SAX::BEGIN@14 which was called: # once (2.33ms+67.9ms) by MARC::File::XML::BEGIN@9 at line 14
use MARC::Charset qw(utf8_to_marc8);
# spent 70.3ms making 1 call to MARC::File::SAX::BEGIN@14 # spent 77µs making 1 call to Exporter::import
15
16=head2 new()
17
- -
22
# spent 40.2ms within MARC::File::SAX::new which was called 5000 times, avg 8µs/call: # 5000 times (40.2ms+0s) by MARC::File::XML::decode at line 438 of MARC/File/XML.pm, avg 8µs/call
sub new {
231000046.1ms 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 23.7ms within MARC::File::SAX::record which was called 5000 times, avg 5µs/call: # 5000 times (23.7ms+0s) by MARC::File::XML::decode at line 447 of MARC/File/XML.pm, avg 5µs/call
sub record {
45500027.3ms return shift->{records}[0];
46}
47
48
# spent 2.03s (1.97+53.9ms) within MARC::File::SAX::start_element which was called 185299 times, avg 11µs/call: # 185299 times (1.97s+53.9ms) by XML::SAX::ExpatXS::Preload::__ANON__[/usr/lib/perl5/XML/SAX/ExpatXS/Preload.pm:230] at line 230 of XML/SAX/ExpatXS/Preload.pm, avg 11µs/call
sub start_element {
495558971.95s my ( $self, $element ) = @_;
50 my $name = $element->{ LocalName };
51178623406ms500053.9ms if ( $name eq 'record' ) {
# spent 53.9ms making 5000 calls to MARC::Record::new, avg 11µ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.08s (3.71+5.37) within MARC::File::SAX::end_element which was called 185299 times, avg 49µs/call: # 185299 times (3.71s+5.37s) by XML::SAX::ExpatXS::Preload::__ANON__[/usr/lib/perl5/XML/SAX/ExpatXS/Preload.pm:41] at line 41 of XML/SAX/ExpatXS/Preload.pm, avg 49µs/call
sub end_element {
675558971.69s my ( $self, $element ) = @_;
68 my $name = $element->{ LocalName };
698402782.05s if ( $name eq 'subfield' ) {
70 push @{ $self->{ subfields } }, $self->{ subcode };
71
7295758177ms 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 } )
8340000941ms );
# spent 528ms making 20000 calls to MARC::Field::new, avg 26µs/call # spent 413ms 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.37s @{ $self->{ subfields } }
# spent 3.16s making 59541 calls to MARC::Field::new, avg 53µs/call # spent 1.22s making 59541 calls to MARC::Record::append_fields, avg 20µ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
108500057.9ms $self->{ record }->leader( $ldr );
# spent 57.9ms 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.28s within MARC::File::SAX::characters which was called 365598 times, avg 6µs/call: # 365598 times (2.28s+0s) by XML::SAX::ExpatXS::Preload::__ANON__[/usr/lib/perl5/XML/SAX/ExpatXS/Preload.pm:167] at line 167 of XML/SAX/ExpatXS/Preload.pm, avg 6µs/call
sub characters {
1187311963.04s 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
12715µs1;
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.