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

Filename/usr/lib/perl5/DateTime/Infinite.pm
StatementsExecuted 44 statements in 1.03ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
11118µs94µsDateTime::Infinite::::BEGIN@12 DateTime::Infinite::BEGIN@12
11114µs14µsDateTime::Infinite::::BEGIN@2 DateTime::Infinite::BEGIN@2
11114µs20µsDateTime::Infinite::::BEGIN@6 DateTime::Infinite::BEGIN@6
11111µs33µsDateTime::Infinite::::BEGIN@7 DateTime::Infinite::BEGIN@7
11110µs29µsDateTime::Infinite::::BEGIN@15 DateTime::Infinite::BEGIN@15
1119µs61µsDateTime::Infinite::Past::::BEGIN@70 DateTime::Infinite::Past::BEGIN@70
1119µs63µsDateTime::Infinite::Future::::BEGIN@46DateTime::Infinite::Future::BEGIN@46
1118µs8µsDateTime::Infinite::::BEGIN@10 DateTime::Infinite::BEGIN@10
2117µs7µsDateTime::Infinite::::_rd2ymd DateTime::Infinite::_rd2ymd
1117µs7µsDateTime::Infinite::Future::::BEGIN@42DateTime::Infinite::Future::BEGIN@42
1116µs6µsDateTime::Infinite::Past::::BEGIN@66 DateTime::Infinite::Past::BEGIN@66
1116µs6µsDateTime::Infinite::::BEGIN@9 DateTime::Infinite::BEGIN@9
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 14µs within DateTime::Infinite::BEGIN@2 which was called: # once (14µs+0s) by C4::Circulation::BEGIN@24 at line 4
BEGIN {
318µs $DateTime::Infinite::VERSION = '0.61';
4123µs114µs}
# spent 14µs making 1 call to DateTime::Infinite::BEGIN@2
5
6328µs225µs
# spent 20µs (14+6) within DateTime::Infinite::BEGIN@6 which was called: # once (14µs+6µs) by C4::Circulation::BEGIN@24 at line 6
use strict;
# spent 20µs making 1 call to DateTime::Infinite::BEGIN@6 # spent 6µs making 1 call to strict::import
7328µs254µs
# spent 33µs (11+22) within DateTime::Infinite::BEGIN@7 which was called: # once (11µs+22µs) by C4::Circulation::BEGIN@24 at line 7
use warnings;
# spent 33µs making 1 call to DateTime::Infinite::BEGIN@7 # spent 22µs making 1 call to warnings::import
8
9324µs16µs
# spent 6µs within DateTime::Infinite::BEGIN@9 which was called: # once (6µs+0s) by C4::Circulation::BEGIN@24 at line 9
use DateTime;
# spent 6µs making 1 call to DateTime::Infinite::BEGIN@9
10328µs18µs
# spent 8µs within DateTime::Infinite::BEGIN@10 which was called: # once (8µs+0s) by C4::Circulation::BEGIN@24 at line 10
use DateTime::TimeZone;
# spent 8µs making 1 call to DateTime::Infinite::BEGIN@10
11
12348µs2170µs
# spent 94µs (18+76) within DateTime::Infinite::BEGIN@12 which was called: # once (18µs+76µs) by C4::Circulation::BEGIN@24 at line 12
use base qw(DateTime);
# spent 94µs making 1 call to DateTime::Infinite::BEGIN@12 # spent 76µs making 1 call to base::import
13
1412µsforeach my $m (qw( set set_time_zone truncate )) {
153252µs249µs
# spent 29µs (10+19) within DateTime::Infinite::BEGIN@15 which was called: # once (10µs+19µs) by C4::Circulation::BEGIN@24 at line 15
no strict 'refs';
# spent 29µs making 1 call to DateTime::Infinite::BEGIN@15 # spent 19µs making 1 call to strict::unimport
16324µs *{"DateTime::Infinite::$m"} = sub { return $_[0] };
17}
18
19sub is_finite {0}
20sub is_infinite {1}
21
22
# spent 7µs within DateTime::Infinite::_rd2ymd which was called 2 times, avg 4µs/call: # 2 times (7µs+0s) by DateTime::_calc_local_components at line 408 of DateTime.pm, avg 4µs/call
sub _rd2ymd {
23218µ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 {
2727µ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 7µs within DateTime::Infinite::Future::BEGIN@42 which was called: # once (7µs+0s) by C4::Circulation::BEGIN@24 at line 44
BEGIN {
4317µs $DateTime::Infinite::Future::VERSION = '0.61';
44123µs17µs}
# spent 7µs making 1 call to DateTime::Infinite::Future::BEGIN@42
45
463108µs2118µs
# spent 63µs (9+54) within DateTime::Infinite::Future::BEGIN@46 which was called: # once (9µs+54µs) by C4::Circulation::BEGIN@24 at line 46
use base qw(DateTime::Infinite);
# spent 63µs making 1 call to DateTime::Infinite::Future::BEGIN@46 # spent 54µs making 1 call to base::import
47
48{
492118µs1169µs my $Pos = bless {
# spent 169µ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
59111µs166µs $Pos->_calc_utc_rd;
# spent 66µs making 1 call to DateTime::_calc_utc_rd
60112µs191µs $Pos->_calc_local_rd;
# spent 91µs making 1 call to DateTime::_calc_local_rd
61
62 sub new {$Pos}
63}
64
65package DateTime::Infinite::Past;
66
# spent 6µs within DateTime::Infinite::Past::BEGIN@66 which was called: # once (6µs+0s) by C4::Circulation::BEGIN@24 at line 68
BEGIN {
6716µs $DateTime::Infinite::Past::VERSION = '0.61';
68127µs16µs}
# spent 6µs making 1 call to DateTime::Infinite::Past::BEGIN@66
69
703113µs2114µs
# spent 61µs (9+52) within DateTime::Infinite::Past::BEGIN@70 which was called: # once (9µs+52µs) by C4::Circulation::BEGIN@24 at line 70
use base qw(DateTime::Infinite);
# spent 61µs making 1 call to DateTime::Infinite::Past::BEGIN@70 # spent 52µs making 1 call to base::import
71
72{
73283µs170µs my $Neg = bless {
# spent 70µ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
8317µs142µs $Neg->_calc_utc_rd;
# spent 42µs making 1 call to DateTime::_calc_utc_rd
8418µs144µs $Neg->_calc_local_rd;
# spent 44µs making 1 call to DateTime::_calc_local_rd
85
86 sub new {$Neg}
87}
88
89115µ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.