← 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 17:10:45 2013
Reported on Tue Oct 15 17:12:34 2013

Filename/usr/share/perl/5.10/Tie/Hash/NamedCapture.pm
StatementsExecuted 11 statements in 68µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
22115µs15µsTie::Hash::NamedCapture::::TIEHASHTie::Hash::NamedCapture::TIEHASH
11112µs12µsTie::Hash::NamedCapture::::flagsTie::Hash::NamedCapture::flags (xsub)
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Tie::Hash::NamedCapture;
2
31900nsour $VERSION = "0.06";
4
5# The real meat implemented in XS in universal.c in the core, but this
6# method was left behind because gv.c expects a Purl-Perl method in
7# this package when it loads the tie magic for %+ and %-
8
9129µs112µsmy ($one, $all) = Tie::Hash::NamedCapture::flags();
# spent 12µs making 1 call to Tie::Hash::NamedCapture::flags
10
11
# spent 15µs within Tie::Hash::NamedCapture::TIEHASH which was called 2 times, avg 8µs/call: # once (10µs+0s) by Date::Manip::Date::BEGIN@407 at line 17 # once (5µs+0s) by Date::Manip::Date::BEGIN@407 at line 18
sub TIEHASH {
1223µs my ($pkg, %arg) = @_;
1321µs my $flag = $arg{all} ? $all : $one;
14217µs bless \$flag => $pkg;
15}
16
1716µs110µstie %+, __PACKAGE__;
# spent 10µs making 1 call to Tie::Hash::NamedCapture::TIEHASH
1813µs15µstie %-, __PACKAGE__, all => 1;
# spent 5µs making 1 call to Tie::Hash::NamedCapture::TIEHASH
19
2017µs1;
21
22__END__
 
# spent 12µs within Tie::Hash::NamedCapture::flags which was called: # once (12µs+0s) by Date::Manip::Date::BEGIN@407 at line 9
sub Tie::Hash::NamedCapture::flags; # xsub