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

Filename/usr/lib/perl5/DateTime/Infinite.pm
StatementsExecuted 44 statements in 1.07ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
11129µs49µsDateTime::Infinite::::BEGIN@15 DateTime::Infinite::BEGIN@15
11118µs109µsDateTime::Infinite::::BEGIN@12 DateTime::Infinite::BEGIN@12
11115µs15µsDateTime::Infinite::::BEGIN@2 DateTime::Infinite::BEGIN@2
11115µs94µsDateTime::Infinite::Future::::BEGIN@46DateTime::Infinite::Future::BEGIN@46
11114µs21µsDateTime::Infinite::::BEGIN@6 DateTime::Infinite::BEGIN@6
11113µs18µsDateTime::Infinite::::BEGIN@9 DateTime::Infinite::BEGIN@9
11112µs14µsDateTime::Infinite::::BEGIN@10 DateTime::Infinite::BEGIN@10
11112µs38µsDateTime::Infinite::::BEGIN@7 DateTime::Infinite::BEGIN@7
11112µs63µsDateTime::Infinite::Past::::BEGIN@70 DateTime::Infinite::Past::BEGIN@70
11110µs10µsDateTime::Infinite::Future::::BEGIN@42DateTime::Infinite::Future::BEGIN@42
2118µs8µsDateTime::Infinite::::_rd2ymd DateTime::Infinite::_rd2ymd
1118µs8µsDateTime::Infinite::Past::::BEGIN@66 DateTime::Infinite::Past::BEGIN@66
2114µs4µsDateTime::Infinite::::_seconds_as_components DateTime::Infinite::_seconds_as_components
0000s0sDateTime::Infinite::Future::::newDateTime::Infinite::Future::new
0000s0sDateTime::Infinite::Past::::new DateTime::Infinite::Past::new
0000s0sDateTime::Infinite::::STORABLE_freeze DateTime::Infinite::STORABLE_freeze
0000s0sDateTime::Infinite::::STORABLE_thaw DateTime::Infinite::STORABLE_thaw
0000s0sDateTime::Infinite::::__ANON__[:16] DateTime::Infinite::__ANON__[:16]
0000s0sDateTime::Infinite::::_stringify DateTime::Infinite::_stringify
0000s0sDateTime::Infinite::::is_finite DateTime::Infinite::is_finite
0000s0sDateTime::Infinite::::is_infinite DateTime::Infinite::is_infinite
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package DateTime::Infinite;
2
# spent 15µs within DateTime::Infinite::BEGIN@2 which was called: # once (15µs+0s) by C4::Circulation::BEGIN@24 at line 4
BEGIN {
319µs $DateTime::Infinite::VERSION = '0.61';
4125µs115µs}
# spent 15µs making 1 call to DateTime::Infinite::BEGIN@2
5
6330µs228µs
# spent 21µs (14+7) within DateTime::Infinite::BEGIN@6 which was called: # once (14µs+7µs) by C4::Circulation::BEGIN@24 at line 6
use strict;
# spent 21µs making 1 call to DateTime::Infinite::BEGIN@6 # spent 7µs making 1 call to strict::import
7330µs265µs
# spent 38µs (12+27) within DateTime::Infinite::BEGIN@7 which was called: # once (12µs+27µs) by C4::Circulation::BEGIN@24 at line 7
use warnings;
# spent 38µs making 1 call to DateTime::Infinite::BEGIN@7 # spent 27µs making 1 call to warnings::import
8
9328µs223µs
# spent 18µs (13+5) within DateTime::Infinite::BEGIN@9 which was called: # once (13µs+5µs) by C4::Circulation::BEGIN@24 at line 9
use DateTime;
# spent 18µs making 1 call to DateTime::Infinite::BEGIN@9 # spent 5µs making 1 call to UNIVERSAL::import
10331µs215µs
# spent 14µs (12+1) within DateTime::Infinite::BEGIN@10 which was called: # once (12µs+1µs) by C4::Circulation::BEGIN@24 at line 10
use DateTime::TimeZone;
# spent 14µs making 1 call to DateTime::Infinite::BEGIN@10 # spent 1µs making 1 call to UNIVERSAL::import
11
12352µs2200µs
# spent 109µs (18+91) within DateTime::Infinite::BEGIN@12 which was called: # once (18µs+91µs) by C4::Circulation::BEGIN@24 at line 12
use base qw(DateTime);
# spent 109µs making 1 call to DateTime::Infinite::BEGIN@12 # spent 91µs making 1 call to base::import
13
1412µsforeach my $m (qw( set set_time_zone truncate )) {
153214µs269µs
# spent 49µs (29+20) within DateTime::Infinite::BEGIN@15 which was called: # once (29µs+20µs) by C4::Circulation::BEGIN@24 at line 15
no strict 'refs';
# spent 49µs making 1 call to DateTime::Infinite::BEGIN@15 # spent 20µs making 1 call to strict::unimport
16322µs *{"DateTime::Infinite::$m"} = sub { return $_[0] };
17}
18
19sub is_finite {0}
20sub is_infinite {1}
21
22
# spent 8µs within DateTime::Infinite::_rd2ymd which was called 2 times, avg 4µs/call: # 2 times (8µs+0s) by DateTime::_calc_local_components at line 408 of DateTime.pm, avg 4µs/call
sub _rd2ymd {
23211µs return $_[2] ? ( $_[1] ) x 7 : ( $_[1] ) x 3;
24}
25
26
# spent 4µs within DateTime::Infinite::_seconds_as_components which was called 2 times, avg 2µs/call: # 2 times (4µs+0s) by DateTime::_calc_local_components at line 413 of DateTime.pm, avg 2µs/call
sub _seconds_as_components {
2728µs return ( $_[1] ) x 3;
28}
29
30sub _stringify {
31 (
32 $_[0]->{utc_rd_days} == DateTime::INFINITY
33 ? DateTime::INFINITY . ''
34 : DateTime::NEG_INFINITY . ''
35 );
36}
37
38sub STORABLE_freeze {return}
39sub STORABLE_thaw {return}
40
41package DateTime::Infinite::Future;
42
# spent 10µs within DateTime::Infinite::Future::BEGIN@42 which was called: # once (10µs+0s) by C4::Circulation::BEGIN@24 at line 44
BEGIN {
43111µs $DateTime::Infinite::Future::VERSION = '0.61';
44150µs110µs}
# spent 10µs making 1 call to DateTime::Infinite::Future::BEGIN@42
45
463154µs2174µs
# spent 94µs (15+80) within DateTime::Infinite::Future::BEGIN@46 which was called: # once (15µs+80µs) by C4::Circulation::BEGIN@24 at line 46
use base qw(DateTime::Infinite);
# spent 94µs making 1 call to DateTime::Infinite::Future::BEGIN@46 # spent 80µs making 1 call to base::import
47
48{
492102µs1133µs my $Pos = bless {
# spent 133µs making 1 call to DateTime::TimeZone::new
50 utc_rd_days => DateTime::INFINITY,
51 utc_rd_secs => DateTime::INFINITY,
52 local_rd_days => DateTime::INFINITY,
53 local_rd_secs => DateTime::INFINITY,
54 rd_nanosecs => DateTime::INFINITY,
55 tz => DateTime::TimeZone->new( name => 'floating' ),
56 },
57 __PACKAGE__;
58
5915µs158µs $Pos->_calc_utc_rd;
# spent 58µs making 1 call to DateTime::_calc_utc_rd
60110µs162µs $Pos->_calc_local_rd;
# spent 62µs making 1 call to DateTime::_calc_local_rd
61
62 sub new {$Pos}
63}
64
65package DateTime::Infinite::Past;
66
# spent 8µs within DateTime::Infinite::Past::BEGIN@66 which was called: # once (8µs+0s) by C4::Circulation::BEGIN@24 at line 68
BEGIN {
6717µs $DateTime::Infinite::Past::VERSION = '0.61';
68128µs18µs}
# spent 8µs making 1 call to DateTime::Infinite::Past::BEGIN@66
69
703114µs2114µs
# spent 63µs (12+51) within DateTime::Infinite::Past::BEGIN@70 which was called: # once (12µs+51µs) by C4::Circulation::BEGIN@24 at line 70
use base qw(DateTime::Infinite);
# spent 63µs making 1 call to DateTime::Infinite::Past::BEGIN@70 # spent 51µs making 1 call to base::import
71
72{
73299µs187µs my $Neg = bless {
# spent 87µs making 1 call to DateTime::TimeZone::new
74 utc_rd_days => DateTime::NEG_INFINITY,
75 utc_rd_secs => DateTime::NEG_INFINITY,
76 local_rd_days => DateTime::NEG_INFINITY,
77 local_rd_secs => DateTime::NEG_INFINITY,
78 rd_nanosecs => DateTime::NEG_INFINITY,
79 tz => DateTime::TimeZone->new( name => 'floating' ),
80 },
81 __PACKAGE__;
82
8315µs123µs $Neg->_calc_utc_rd;
# spent 23µs making 1 call to DateTime::_calc_utc_rd
8415µs150µs $Neg->_calc_local_rd;
# spent 50µs making 1 call to DateTime::_calc_local_rd
85
86 sub new {$Neg}
87}
88
89116µs1;
90
91# ABSTRACT: Infinite past and future DateTime objects
92
- -
95=pod
96
- -
164__END__
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.