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

Filename/usr/share/perl/5.10/version.pm
StatementsExecuted 34 statements in 849µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11195µs95µsversion::::BEGIN@4version::BEGIN@4
11153µs53µsversion::::(boolversion::(bool (xsub)
22252µs52µsversion::::importversion::import
11126µs37µsversion::::BEGIN@5version::BEGIN@5
11119µs186µsversion::::BEGIN@7version::BEGIN@7
11118µs50µsversion::::BEGIN@15version::BEGIN@15
11113µs19µsversion::::__ANON__[:47]version::__ANON__[:47]
11112µs12µsversion::::(cmpversion::(cmp (xsub)
1116µs6µsversion::::qvversion::qv (xsub)
0000s0sversion::::__ANON__[:41]version::__ANON__[:41]
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1#!perl -w
2package version;
3
43126µs195µs
# spent 95µs within version::BEGIN@4 which was called: # once (95µs+0s) by Module::Load::Conditional::BEGIN@12 at line 4
use 5.005_04;
# spent 95µs making 1 call to version::BEGIN@4
5368µs248µs
# spent 37µs (26+11) within version::BEGIN@5 which was called: # once (26µs+11µs) by Module::Load::Conditional::BEGIN@12 at line 5
use strict;
# spent 37µs making 1 call to version::BEGIN@5 # spent 11µs making 1 call to strict::import
6
7391µs2352µs
# spent 186µs (19+167) within version::BEGIN@7 which was called: # once (19µs+167µs) by Module::Load::Conditional::BEGIN@12 at line 7
use vars qw(@ISA $VERSION $CLASS *declare *qv);
# spent 186µs making 1 call to version::BEGIN@7 # spent 167µs making 1 call to vars::import
8
911µs$VERSION = 0.77;
10
1111µs$CLASS = 'version';
12
13# Preloaded methods go here.
14
# spent 52µs within version::import which was called 2 times, avg 26µs/call: # once (28µs+0s) by Module::Load::Conditional::BEGIN@12 at line 12 of Module/Load/Conditional.pm # once (24µs+0s) by Koha::DateUtils::BEGIN@27 at line 27 of /usr/share/koha/lib/Koha/DateUtils.pm
sub import {
153475µs282µs
# spent 50µs (18+32) within version::BEGIN@15 which was called: # once (18µs+32µs) by Module::Load::Conditional::BEGIN@12 at line 15
no strict 'refs';
# spent 50µs making 1 call to version::BEGIN@15 # spent 32µs making 1 call to strict::unimport
161860µs my ($class) = shift;
17
18 # Set up any derived class
19 unless ($class eq 'version') {
20 local $^W;
21 *{$class.'::declare'} = \&version::declare;
22 *{$class.'::qv'} = \&version::qv;
23 }
24
25 my %args;
26 if (@_) { # any remaining terms are arguments
27 map { $args{$_} = 1 } @_
28 }
29 else { # no parameters at all on use line
30 %args =
31 (
32 qv => 1,
33 'UNIVERSAL::VERSION' => 1,
34 );
35 }
36
37 my $callpkg = caller();
38
39 if (exists($args{declare})) {
40 *{$callpkg."::declare"} =
41 sub {return $class->declare(shift) }
42 unless defined(&{$callpkg.'::declare'});
43 }
44
45 if (exists($args{qv})) {
46120µs16µs *{$callpkg."::qv"} =
# spent 6µs making 1 call to version::qv
47
# spent 19µs (13+6) within version::__ANON__[/usr/share/perl/5.10/version.pm:47] which was called: # once (13µs+6µs) by C4::Letters::BEGIN@32 at line 27 of /usr/share/koha/lib/Koha/DateUtils.pm
sub {return $class->qv(shift) }
48 unless defined(&{"$callpkg\::qv"});
49 }
50
51 if (exists($args{'VERSION'})) {
52 *{$callpkg."::VERSION"} = \&version::_VERSION;
53 }
54}
55
5616µs1;
 
# spent 53µs within version::(bool which was called: # once (53µs+0s) by DynaLoader::BEGIN@24 at line 47 of Config.pm
sub version::(bool; # xsub
# spent 12µs within version::(cmp which was called: # once (12µs+0s) by DynaLoader::BEGIN@24 at line 50 of Config.pm
sub version::(cmp; # xsub
# spent 6µs within version::qv which was called: # once (6µs+0s) by version::__ANON__[/usr/share/perl/5.10/version.pm:47] at line 46
sub version::qv; # xsub