← 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:11:27 2013

Filename/usr/share/perl5/CGI/Session/Serialize/yaml.pm
StatementsExecuted 21 statements in 434µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
311106µs482µsCGI::Session::Serialize::yaml::::freezeCGI::Session::Serialize::yaml::freeze
11123µs29µsCGI::Session::Serialize::yaml::::BEGIN@3CGI::Session::Serialize::yaml::BEGIN@3
11112µs14µ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
3335µs235µs
# spent 29µs (23+6) within CGI::Session::Serialize::yaml::BEGIN@3 which was called: # once (23µs+6µs) by CGI::Session::_load_pluggables at line 3
use strict;
# spent 29µs making 1 call to CGI::Session::Serialize::yaml::BEGIN@3 # spent 6µs making 1 call to strict::import
43178µs217µs
# spent 14µs (12+2) within CGI::Session::Serialize::yaml::BEGIN@4 which was called: # once (12µs+2µs) by CGI::Session::_load_pluggables at line 4
use CGI::Session::ErrorHandler;
# spent 14µs making 1 call to CGI::Session::Serialize::yaml::BEGIN@4 # spent 2µs making 1 call to UNIVERSAL::import
5
611µs$CGI::Session::Serialize::yaml::VERSION = '4.24';
7110µs@CGI::Session::Serialize::yaml::ISA = ( "CGI::Session::ErrorHandler" );
81200nsour $Flavour;
9
101700nsunless($Flavour) {
11369µs my $package = (grep { eval("use $_ (); 1;") } qw(YAML::Syck YAML))[0]
# spent 21µs executing statements in string eval
# includes 11µs spent executing 1 call to 1 sub defined therein. # spent 19µs executing statements in string eval
# includes 10µs spent executing 1 call to 1 sub defined therein.
12 or die "Either YAML::Syck or YAML are required to use ", __PACKAGE__;
131500ns $Flavour = $package;
14}
15
16
# spent 482µs (106+376) within CGI::Session::Serialize::yaml::freeze which was called 3 times, avg 161µs/call: # 3 times (106µs+376µs) by CGI::Session::flush at line 249 of CGI/Session.pm, avg 161µs/call
sub freeze {
176133µs my ($self, $data) = @_;
186376µs return $Flavour->can('Dump')->($data);
# spent 350µs making 3 calls to YAML::Syck::Dump, avg 117µs/call # spent 26µs making 3 calls to UNIVERSAL::can, avg 9µs/call
19}
20
21
22sub thaw {
23 my ($self, $string) = @_;
24 return ($Flavour->can('Load')->($string))[0];
25}
26
2716µs1;
28
29__END__;