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

Filename/usr/share/perl5/CGI/Session/Driver.pm
StatementsExecuted 36 statements in 828µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
311122µs236µsCGI::Session::Driver::::newCGI::Session::Driver::new
11134µs41µsCGI::Session::Driver::::BEGIN@5CGI::Session::Driver::BEGIN@5
11119µs19µsCGI::Session::Driver::::BEGIN@9CGI::Session::Driver::BEGIN@9
11119µs202µ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
5362µs247µs
# spent 41µs (34+7) within CGI::Session::Driver::BEGIN@5 which was called: # once (34µs+7µs) by CGI::Session::Driver::DBI::BEGIN@9 at line 5
use strict;
# spent 41µs making 1 call to CGI::Session::Driver::BEGIN@5 # spent 7µs making 1 call to strict::import
6#use diagnostics;
7
8354µs2386µs
# spent 202µs (19+183) within CGI::Session::Driver::BEGIN@8 which was called: # once (19µs+183µs) by CGI::Session::Driver::DBI::BEGIN@9 at line 8
use Carp;
# spent 202µs making 1 call to CGI::Session::Driver::BEGIN@8 # spent 184µs making 1 call to Exporter::import
93564µs119µs
# spent 19µs within CGI::Session::Driver::BEGIN@9 which was called: # once (19µs+0s) by CGI::Session::Driver::DBI::BEGIN@9 at line 9
use CGI::Session::ErrorHandler;
# spent 19µs making 1 call to CGI::Session::Driver::BEGIN@9
10
1111µs$CGI::Session::Driver::VERSION = '4.38';
12122µs@CGI::Session::Driver::ISA = qw(CGI::Session::ErrorHandler);
13
14
# spent 236µs (122+114) within CGI::Session::Driver::new which was called 3 times, avg 79µs/call: # 3 times (122µs+114µs) by CGI::Session::_driver at line 120 of CGI/Session.pm, avg 79µ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
24328µs if (! $args->{TableName}) {
25 $args->{TableName} = 'sessions';
26 }
27
2839µs if (! $args->{IdColName}) {
29 $args->{IdColName} = 'id';
30 }
31
3237µs if (! $args->{DataColName}) {
33 $args->{DataColName} = 'a_session';
34 }
35
36 # perform a shallow copy of $args, to prevent modification
37338µs my $self = bless ({%$args}, $class);
38325µs3114µs return $self if $self->init();
# spent 114µs making 3 calls to CGI::Session::Driver::mysql::init, avg 38µ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
6715µs1;
68
69__END__;