← Index
NYTProf Performance Profile   « block view • line view • sub view »
For conv.pl
  Run on Sun Nov 14 22:50:31 2010
Reported on Sun Nov 14 22:51:24 2010

Filename/usr/share/perl5/MARC/Charset/Table.pm
StatementsExecuted 32 statements in 1.52ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
111962µs16.7msMARC::Charset::Table::::BEGIN@36MARC::Charset::Table::BEGIN@36
111935µs7.27msMARC::Charset::Table::::BEGIN@38MARC::Charset::Table::BEGIN@38
111597µs6.96msMARC::Charset::Table::::BEGIN@40MARC::Charset::Table::BEGIN@40
111286µs623µsMARC::Charset::Table::::BEGIN@37MARC::Charset::Table::BEGIN@37
11123µs30µsMARC::Charset::Table::::BEGIN@34MARC::Charset::Table::BEGIN@34
11123µs107µsMARC::Charset::Table::::_initMARC::Charset::Table::_init
11121µs128µsMARC::Charset::Table::::newMARC::Charset::Table::new
11116µs20µsMARC::Charset::Table::::db_pathMARC::Charset::Table::db_path
11114µs470µsMARC::Charset::Table::::BEGIN@39MARC::Charset::Table::BEGIN@39
11114µs41µsMARC::Charset::Table::::BEGIN@35MARC::Charset::Table::BEGIN@35
1114µs4µsMARC::Charset::Table::::CORE:substMARC::Charset::Table::CORE:subst (opcode)
0000s0sMARC::Charset::Table::::add_codeMARC::Charset::Table::add_code
0000s0sMARC::Charset::Table::::brand_newMARC::Charset::Table::brand_new
0000s0sMARC::Charset::Table::::dbMARC::Charset::Table::db
0000s0sMARC::Charset::Table::::get_codeMARC::Charset::Table::get_code
0000s0sMARC::Charset::Table::::lookup_by_marc8MARC::Charset::Table::lookup_by_marc8
0000s0sMARC::Charset::Table::::lookup_by_utf8MARC::Charset::Table::lookup_by_utf8
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package MARC::Charset::Table;
2
3=head1 NAME
4
- -
34340µs237µs
# spent 30µs (23+7) within MARC::Charset::Table::BEGIN@34 which was called: # once (23µs+7µs) by MARC::Charset::BEGIN@13 at line 34
use strict;
# spent 30µs making 1 call to MARC::Charset::Table::BEGIN@34 # spent 7µs making 1 call to strict::import
35337µs268µs
# spent 41µs (14+27) within MARC::Charset::Table::BEGIN@35 which was called: # once (14µs+27µs) by MARC::Charset::BEGIN@13 at line 35
use warnings;
# spent 41µs making 1 call to MARC::Charset::Table::BEGIN@35 # spent 27µs making 1 call to warnings::import
363163µs225.8ms
# spent 16.7ms (962µs+15.7) within MARC::Charset::Table::BEGIN@36 which was called: # once (962µs+15.7ms) by MARC::Charset::BEGIN@13 at line 36
use POSIX;
# spent 16.7ms making 1 call to MARC::Charset::Table::BEGIN@36 # spent 9.17ms making 1 call to POSIX::import
373173µs1623µs
# spent 623µs (286+337) within MARC::Charset::Table::BEGIN@37 which was called: # once (286µs+337µs) by MARC::Charset::BEGIN@13 at line 37
use SDBM_File;
# spent 623µs making 1 call to MARC::Charset::Table::BEGIN@37
383162µs17.27ms
# spent 7.27ms (935µs+6.33) within MARC::Charset::Table::BEGIN@38 which was called: # once (935µs+6.33ms) by MARC::Charset::BEGIN@13 at line 38
use MARC::Charset::Code;
# spent 7.27ms making 1 call to MARC::Charset::Table::BEGIN@38
39346µs2926µs
# spent 470µs (14+456) within MARC::Charset::Table::BEGIN@39 which was called: # once (14µs+456µs) by MARC::Charset::BEGIN@13 at line 39
use MARC::Charset::Constants qw(:all);
# spent 470µs making 1 call to MARC::Charset::Table::BEGIN@39 # spent 456µs making 1 call to Exporter::import
403761µs27.13ms
# spent 6.96ms (597µs+6.37) within MARC::Charset::Table::BEGIN@40 which was called: # once (597µs+6.37ms) by MARC::Charset::BEGIN@13 at line 40
use Storable qw(freeze thaw);
# spent 6.96ms making 1 call to MARC::Charset::Table::BEGIN@40 # spent 164µs making 1 call to Exporter::import
41
42=head2 new()
43
- -
48sub new
49
# spent 128µs (21+107) within MARC::Charset::Table::new which was called: # once (21µs+107µs) by MARC::File::XML::BEGIN@11 at line 44 of MARC/Charset.pm
{
5012µs my $class = shift;
5119µs my $self = bless {}, ref($class) || $class;
5215µs1107µs $self->_init(O_RDONLY);
# spent 107µs making 1 call to MARC::Charset::Table::_init
5315µs return $self;
54}
55
56
57=head2 add_code()
58
- -
64sub add_code
65{
66 my ($self, $code) = @_;
67
68 # the Code object is serialized
69 my $frozen = freeze($code);
70
71 # to support lookup by marc8 and utf8 values we
72 # stash away the rule in the db using two keys
73 my $marc8_key = $code->marc8_hash_code();
74 my $utf8_key = $code->utf8_hash_code();
75
76 # stash away the marc8 lookup key
77 $self->{db}->{$marc8_key} = $frozen;
78
79 # stash away the utf8 lookup key (only if it's not already there!)
80 # this means that the sets that appear in the xml file will have
81 # precedence ascii/ansel
82 $self->{db}->{$utf8_key} = $frozen unless exists $self->{db}->{$utf8_key};
83}
84
85
86=head2 get_code()
87
- -
92sub get_code
93{
94 my ($self, $key) = @_;
95 my $db = $self->db();
96 my $frozen = $db->{$key};
97 return thaw($frozen) if $frozen;
98 return undef;
99}
100
101
102=head2 lookup_by_marc8()
103
- -
112sub lookup_by_marc8
113{
114 my ($self, $charset, $marc8) = @_;
115 $charset = BASIC_LATIN if $charset eq ASCII_DEFAULT;
116 return $self->get_code(sprintf('%s:%s', $charset, $marc8));
117}
118
119
120=head2 lookup_by_utf8()
121
- -
126sub lookup_by_utf8
127{
128 my ($self, $value) = @_;
129 return $self->get_code(ord($value));
130}
131
- -
135=head2 db()
136
- -
142sub db
143{
144 return shift->{db};
145}
146
147
148=head2 db_path()
149
- -
157sub db_path
158
# spent 20µs (16+4) within MARC::Charset::Table::db_path which was called: # once (16µs+4µs) by MARC::Charset::Table::_init at line 187
{
15912µs my $path = $INC{'MARC/Charset/Table.pm'};
160114µs14µs $path =~ s/\.pm$//;
# spent 4µs making 1 call to MARC::Charset::Table::CORE:subst
16116µs return $path;
162}
163
164
165=head2 brand_new()
166
- -
173sub brand_new
174{
175 my $class = shift;
176 my $self = bless {}, ref($class) || $class;
177 $self->_init(O_CREAT|O_RDWR);
178 return $self;
179}
180
181
182# helper function for initializing table internals
183
184sub _init
185
# spent 107µs (23+84) within MARC::Charset::Table::_init which was called: # once (23µs+84µs) by MARC::Charset::Table::new at line 52
{
18612µs my ($self,$opts) = @_;
187179µs284µs tie my %db, 'SDBM_File', db_path(), $opts, 0644;
# spent 64µs making 1 call to SDBM_File::TIEHASH # spent 20µs making 1 call to MARC::Charset::Table::db_path
18816µs $self->{db} = \%db;
189}
190
- -
19516µs1;
 
# spent 4µs within MARC::Charset::Table::CORE:subst which was called: # once (4µs+0s) by MARC::Charset::Table::db_path at line 160
sub MARC::Charset::Table::CORE:subst; # opcode
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.