← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 11:58:52 2013
Reported on Tue Oct 15 12:01:55 2013

Filename/usr/share/perl5/XML/SAX/DocumentLocator.pm
StatementsExecuted 200 statements in 1.94ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
2811668µs1.30msXML::SAX::DocumentLocator::::newXML::SAX::DocumentLocator::new
2811630µs630µsXML::SAX::DocumentLocator::::TIEHASHXML::SAX::DocumentLocator::TIEHASH
11122µs30µsXML::SAX::DocumentLocator::::BEGIN@4XML::SAX::DocumentLocator::BEGIN@4
0000s0sXML::SAX::DocumentLocator::::CLEARXML::SAX::DocumentLocator::CLEAR
0000s0sXML::SAX::DocumentLocator::::DELETEXML::SAX::DocumentLocator::DELETE
0000s0sXML::SAX::DocumentLocator::::EXISTSXML::SAX::DocumentLocator::EXISTS
0000s0sXML::SAX::DocumentLocator::::FETCHXML::SAX::DocumentLocator::FETCH
0000s0sXML::SAX::DocumentLocator::::FIRSTKEYXML::SAX::DocumentLocator::FIRSTKEY
0000s0sXML::SAX::DocumentLocator::::NEXTKEYXML::SAX::DocumentLocator::NEXTKEY
0000s0sXML::SAX::DocumentLocator::::STOREXML::SAX::DocumentLocator::STORE
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# $Id: DocumentLocator.pm,v 1.3 2005-10-14 20:31:20 matt Exp $
2
3package XML::SAX::DocumentLocator;
43615µs239µs
# spent 30µs (22+8) within XML::SAX::DocumentLocator::BEGIN@4 which was called: # once (22µs+8µs) by XML::LibXML::SAX::Parser::BEGIN@18 at line 4
use strict;
# spent 30µs making 1 call to XML::SAX::DocumentLocator::BEGIN@4 # spent 8µs making 1 call to strict::import
5
6
# spent 1.30ms (668µs+629µs) within XML::SAX::DocumentLocator::new which was called 28 times, avg 46µs/call: # 28 times (668µs+629µs) by XML::LibXML::SAX::Parser::generate at line 83 of XML/LibXML/SAX/Parser.pm, avg 46µs/call
sub new {
72860µs my $class = shift;
82818µs my %object;
928344µs28630µs tie %object, $class, @_;
# spent 630µs making 28 calls to XML::SAX::DocumentLocator::TIEHASH, avg 22µs/call
10
1128218µs return bless \%object, $class;
12}
13
14
# spent 630µs within XML::SAX::DocumentLocator::TIEHASH which was called 28 times, avg 22µs/call: # 28 times (630µs+0s) by XML::SAX::DocumentLocator::new at line 9, avg 22µs/call
sub TIEHASH {
152849µs my $class = shift;
162898µs my ($pubmeth, $sysmeth, $linemeth, $colmeth, $encmeth, $xmlvmeth) = @_;
1728529µs return bless {
18 pubmeth => $pubmeth,
19 sysmeth => $sysmeth,
20 linemeth => $linemeth,
21 colmeth => $colmeth,
22 encmeth => $encmeth,
23 xmlvmeth => $xmlvmeth,
24 }, $class;
25}
26
27sub FETCH {
28 my ($self, $key) = @_;
29 my $method;
30 if ($key eq 'PublicId') {
31 $method = $self->{pubmeth};
32 }
33 elsif ($key eq 'SystemId') {
34 $method = $self->{sysmeth};
35 }
36 elsif ($key eq 'LineNumber') {
37 $method = $self->{linemeth};
38 }
39 elsif ($key eq 'ColumnNumber') {
40 $method = $self->{colmeth};
41 }
42 elsif ($key eq 'Encoding') {
43 $method = $self->{encmeth};
44 }
45 elsif ($key eq 'XMLVersion') {
46 $method = $self->{xmlvmeth};
47 }
48 if ($method) {
49 my $value = $method->($key);
50 return $value;
51 }
52 return undef;
53}
54
55sub EXISTS {
56 my ($self, $key) = @_;
57 if ($key =~ /^(PublicId|SystemId|LineNumber|ColumnNumber|Encoding|XMLVersion)$/) {
58 return 1;
59 }
60 return 0;
61}
62
63sub STORE {
64 my ($self, $key, $value) = @_;
65}
66
67sub DELETE {
68 my ($self, $key) = @_;
69}
70
71sub CLEAR {
72 my ($self) = @_;
73}
74
75sub FIRSTKEY {
76 my ($self) = @_;
77 # assignment resets.
78 $self->{keys} = {
79 PublicId => 1,
80 SystemId => 1,
81 LineNumber => 1,
82 ColumnNumber => 1,
83 Encoding => 1,
84 XMLVersion => 1,
85 };
86 return each %{$self->{keys}};
87}
88
89sub NEXTKEY {
90 my ($self, $lastkey) = @_;
91 return each %{$self->{keys}};
92}
93
9414µs1;
95__END__