← 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:07 2013

Filename/usr/share/perl5/CGI/Session/Serialize/yaml.pm
StatementsExecuted 21 statements in 599µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
31176µs530µsCGI::Session::Serialize::yaml::::freezeCGI::Session::Serialize::yaml::freeze
11133µs40µsCGI::Session::Serialize::yaml::::BEGIN@3CGI::Session::Serialize::yaml::BEGIN@3
11112µs12µsCGI::Session::Serialize::yaml::::BEGIN@4CGI::Session::Serialize::yaml::BEGIN@4
0000s0sCGI::Session::Serialize::yaml::::thawCGI::Session::Serialize::yaml::thaw
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package CGI::Session::Serialize::yaml;
2
3362µs248µs
# spent 40µs (33+8) within CGI::Session::Serialize::yaml::BEGIN@3 which was called: # once (33µs+8µs) by CGI::Session::_load_pluggables at line 3
use strict;
# spent 40µs making 1 call to CGI::Session::Serialize::yaml::BEGIN@3 # spent 8µs making 1 call to strict::import
43296µs112µs
# spent 12µs within CGI::Session::Serialize::yaml::BEGIN@4 which was called: # once (12µs+0s) by CGI::Session::_load_pluggables at line 4
use CGI::Session::ErrorHandler;
# spent 12µs making 1 call to CGI::Session::Serialize::yaml::BEGIN@4
5
612µs$CGI::Session::Serialize::yaml::VERSION = '4.24';
7117µs@CGI::Session::Serialize::yaml::ISA = ( "CGI::Session::ErrorHandler" );
81300nsour $Flavour;
9
1011µsunless($Flavour) {
113114µs my $package = (grep { eval("use $_ (); 1;") } qw(YAML::Syck YAML))[0]
# spent 30µs executing statements in string eval
# includes 16µs spent executing 1 call to 1 sub defined therein. # spent 28µs executing statements in string eval
# includes 13µs spent executing 1 call to 1 sub defined therein.
12 or die "Either YAML::Syck or YAML are required to use ", __PACKAGE__;
1311µs $Flavour = $package;
14}
15
16
# spent 530µs (76+455) within CGI::Session::Serialize::yaml::freeze which was called 3 times, avg 177µs/call: # 3 times (76µs+455µs) by CGI::Session::flush at line 249 of CGI/Session.pm, avg 177µs/call
sub freeze {
17696µs my ($self, $data) = @_;
186454µs return $Flavour->can('Dump')->($data);
# spent 436µs making 3 calls to YAML::Syck::Dump, avg 145µs/call # spent 18µs making 3 calls to UNIVERSAL::can, avg 6µs/call
19}
20
21
22sub thaw {
23 my ($self, $string) = @_;
24 return ($Flavour->can('Load')->($string))[0];
25}
26
27110µs1;
28
29__END__;