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

Filename/usr/share/perl5/CGI/Session/Driver.pm
StatementsExecuted 36 statements in 583µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
311110µs240µsCGI::Session::Driver::::newCGI::Session::Driver::new
11121µs25µsCGI::Session::Driver::::BEGIN@5CGI::Session::Driver::BEGIN@5
11118µs23µsCGI::Session::Driver::::BEGIN@9CGI::Session::Driver::BEGIN@9
1119µs52µsCGI::Session::Driver::::BEGIN@8CGI::Session::Driver::BEGIN@8
0000s0sCGI::Session::Driver::::dumpCGI::Session::Driver::dump
0000s0sCGI::Session::Driver::::initCGI::Session::Driver::init
0000s0sCGI::Session::Driver::::removeCGI::Session::Driver::remove
0000s0sCGI::Session::Driver::::retrieveCGI::Session::Driver::retrieve
0000s0sCGI::Session::Driver::::storeCGI::Session::Driver::store
0000s0sCGI::Session::Driver::::traverseCGI::Session::Driver::traverse
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::Driver;
2
3# $Id: Driver.pm 447 2008-11-01 03:46:08Z markstos $
4
5330µs229µs
# spent 25µs (21+4) within CGI::Session::Driver::BEGIN@5 which was called: # once (21µs+4µs) by CGI::Session::Driver::DBI::BEGIN@9 at line 5
use strict;
# spent 25µs making 1 call to CGI::Session::Driver::BEGIN@5 # spent 4µs making 1 call to strict::import
6#use diagnostics;
7
8330µs296µs
# spent 52µs (9+44) within CGI::Session::Driver::BEGIN@8 which was called: # once (9µs+44µs) by CGI::Session::Driver::DBI::BEGIN@9 at line 8
use Carp;
# spent 52µs making 1 call to CGI::Session::Driver::BEGIN@8 # spent 44µs making 1 call to Exporter::import
93391µs228µs
# spent 23µs (18+5) within CGI::Session::Driver::BEGIN@9 which was called: # once (18µs+5µs) by CGI::Session::Driver::DBI::BEGIN@9 at line 9
use CGI::Session::ErrorHandler;
# spent 23µs making 1 call to CGI::Session::Driver::BEGIN@9 # spent 5µs making 1 call to UNIVERSAL::import
10
1111µs$CGI::Session::Driver::VERSION = '4.38';
12118µs@CGI::Session::Driver::ISA = qw(CGI::Session::ErrorHandler);
13
14
# spent 240µs (110+131) within CGI::Session::Driver::new which was called 3 times, avg 80µs/call: # 3 times (110µs+131µs) by CGI::Session::_driver at line 120 of CGI/Session.pm, avg 80µs/call
sub new {
1534µs my $class = shift;
1634µs my $args = shift || {};
17
1833µs unless ( ref $args ) {
19 croak "$class->new(): Invalid argument type passed to driver";
20 }
21
22 # Set defaults.
23
24311µs if (! $args->{TableName}) {
25 $args->{TableName} = 'sessions';
26 }
27
2838µs if (! $args->{IdColName}) {
29 $args->{IdColName} = 'id';
30 }
31
3239µs if (! $args->{DataColName}) {
33 $args->{DataColName} = 'a_session';
34 }
35
36 # perform a shallow copy of $args, to prevent modification
37339µs my $self = bless ({%$args}, $class);
38329µs3131µs return $self if $self->init();
# spent 131µs making 3 calls to CGI::Session::Driver::mysql::init, avg 44µs/call
39 return $self->set_error( "%s->init() returned false", $class);
40}
41
42sub init { 1 }
43
44sub retrieve {
45 croak "retrieve(): " . ref($_[0]) . " failed to implement this method!";
46}
47
48sub store {
49 croak "store(): " . ref($_[0]) . " failed to implement this method!";
50}
51
52sub remove {
53 croak "remove(): " . ref($_[0]) . " failed to implement this method!";
54}
55
56sub traverse {
57 croak "traverse(): " . ref($_[0]) . " failed to implement this method!";
58}
59
60sub dump {
61 require Data::Dumper;
62 my $d = Data::Dumper->new([$_[0]], [ref $_[0]]);
63 return $d->Dump;
64}
65
66
6716µs1;
68
69__END__;