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

Filename/usr/share/perl/5.10/version.pm
StatementsExecuted 34 statements in 727µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11175µs75µsversion::::BEGIN@4version::BEGIN@4
22251µs51µsversion::::importversion::import
11119µs28µsversion::::BEGIN@5version::BEGIN@5
11119µs197µsversion::::BEGIN@7version::BEGIN@7
11116µs42µsversion::::BEGIN@15version::BEGIN@15
11115µs15µsversion::::(boolversion::(bool (xsub)
11112µs18µsversion::::__ANON__[:47]version::__ANON__[:47]
1117µs7µ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
43115µs175µs
# spent 75µs within version::BEGIN@4 which was called: # once (75µs+0s) by Module::Load::Conditional::BEGIN@12 at line 4
use 5.005_04;
# spent 75µs making 1 call to version::BEGIN@4
5356µs236µs
# spent 28µs (19+9) within version::BEGIN@5 which was called: # once (19µs+9µs) by Module::Load::Conditional::BEGIN@12 at line 5
use strict;
# spent 28µs making 1 call to version::BEGIN@5 # spent 9µs making 1 call to strict::import
6
7389µs2375µs
# spent 197µs (19+178) within version::BEGIN@7 which was called: # once (19µs+178µs) by Module::Load::Conditional::BEGIN@12 at line 7
use vars qw(@ISA $VERSION $CLASS *declare *qv);
# spent 197µs making 1 call to version::BEGIN@7 # spent 178µ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 51µs within version::import which was called 2 times, avg 25µs/call: # once (27µs+0s) by Module::Load::Conditional::BEGIN@12 at line 12 of Module/Load/Conditional.pm # once (23µs+0s) by Koha::DateUtils::BEGIN@27 at line 27 of /usr/share/koha/lib/Koha/DateUtils.pm
sub import {
153382µs267µs
# spent 42µs (16+25) within version::BEGIN@15 which was called: # once (16µs+25µs) by Module::Load::Conditional::BEGIN@12 at line 15
no strict 'refs';
# spent 42µs making 1 call to version::BEGIN@15 # spent 25µs making 1 call to strict::unimport
161652µ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;
2626µs 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})) {
46119µs16µs *{$callpkg."::qv"} =
# spent 6µs making 1 call to version::qv
47
# spent 18µs (12+6) within version::__ANON__[/usr/share/perl/5.10/version.pm:47] which was called: # once (12µ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 15µs within version::(bool which was called: # once (15µs+0s) by DynaLoader::BEGIN@24 at line 47 of Config.pm
sub version::(bool; # xsub
# spent 7µs within version::(cmp which was called: # once (7µ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