Profile of Time/Local.pm

Filename	/usr/share/perl/5.20/Time/Local.pm
Statements	Executed 69 statements in 1.10ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
3	2	1	28µs	34µs	Time::Local::::_daygmTime::Local::_daygm
2	1	1	21µs	40µs	Time::Local::::timegmTime::Local::timegm
1	1	1	14µs	45µs	Time::Local::::BEGIN@4Time::Local::BEGIN@4
1	1	1	9µs	20µs	Time::Local::::BEGIN@5Time::Local::BEGIN@5
1	1	1	7µs	40µs	Time::Local::::BEGIN@27Time::Local::BEGIN@27
1	1	1	6µs	27µs	Time::Local::::BEGIN@28Time::Local::BEGIN@28
3	1	1	6µs	6µs	Time::Local::::CORE:packTime::Local::CORE:pack (opcode)
1	1	1	5µs	23µs	Time::Local::::BEGIN@29Time::Local::BEGIN@29
1	1	1	5µs	50µs	Time::Local::::BEGIN@8Time::Local::BEGIN@8
1	1	1	5µs	14µs	Time::Local::::BEGIN@6Time::Local::BEGIN@6
0	0	0	0s	0s	Time::Local::::_is_leap_yearTime::Local::_is_leap_year
0	0	0	0s	0s	Time::Local::::_timegmTime::Local::_timegm
0	0	0	0s	0s	Time::Local::::timegm_nocheckTime::Local::timegm_nocheck
0	0	0	0s	0s	Time::Local::::timelocalTime::Local::timelocal
0	0	0	0s	0s	Time::Local::::timelocal_nocheckTime::Local::timelocal_nocheck

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Time::Local;
2
3	1	1µs			require Exporter;
4	2	23µs	2	76µs	# spent 45µs (14+31) within Time::Local::BEGIN@4 which was called: # once (14µs+31µs) by Date::Parse::BEGIN@10 at line 4 use Carp; # spent 45µs making 1 call to Time::Local::BEGIN@4 # spent 31µs making 1 call to Exporter::import
5	2	25µs	2	31µs	# spent 20µs (9+11) within Time::Local::BEGIN@5 which was called: # once (9µs+11µs) by Date::Parse::BEGIN@10 at line 5 use Config; # spent 20µs making 1 call to Time::Local::BEGIN@5 # spent 11µs making 1 call to Config::import
6	2	22µs	2	23µs	# spent 14µs (5+9) within Time::Local::BEGIN@6 which was called: # once (5µs+9µs) by Date::Parse::BEGIN@10 at line 6 use strict; # spent 14µs making 1 call to Time::Local::BEGIN@6 # spent 9µs making 1 call to strict::import
7
8	2	93µs	2	94µs	# spent 50µs (5+44) within Time::Local::BEGIN@8 which was called: # once (5µs+44µs) by Date::Parse::BEGIN@10 at line 8 use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK ); # spent 50µs making 1 call to Time::Local::BEGIN@8 # spent 44µs making 1 call to vars::import
9	1	500ns			$VERSION = '1.2300';
10
11	1	7µs			@ISA = qw( Exporter );
12	1	400ns			@EXPORT = qw( timegm timelocal );
13	1	300ns			@EXPORT_OK = qw( timegm_nocheck timelocal_nocheck );
14
15	1	900ns			my @MonthDays = ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
16
17					# Determine breakpoint for rolling century
18	1	9µs			my $ThisYear = ( localtime() )[5];
19	1	1µs			my $Breakpoint = ( $ThisYear + 50 ) % 100;
20	1	700ns			my $NextCentury = $ThisYear - $ThisYear % 100;
21	1	200ns			$NextCentury += 100 if $Breakpoint < 50;
22	1	200ns			my $Century = $NextCentury - 100;
23	1	100ns			my $SecOff = 0;
24
25	1	100ns			my ( %Options, %Cheat );
26
27	2	24µs	2	74µs	# spent 40µs (7+34) within Time::Local::BEGIN@27 which was called: # once (7µs+34µs) by Date::Parse::BEGIN@10 at line 27 use constant SECS_PER_MINUTE => 60; # spent 40µs making 1 call to Time::Local::BEGIN@27 # spent 34µs making 1 call to constant::import
28	2	21µs	2	48µs	# spent 27µs (6+21) within Time::Local::BEGIN@28 which was called: # once (6µs+21µs) by Date::Parse::BEGIN@10 at line 28 use constant SECS_PER_HOUR => 3600; # spent 27µs making 1 call to Time::Local::BEGIN@28 # spent 21µs making 1 call to constant::import
29	2	784µs	2	41µs	# spent 23µs (5+18) within Time::Local::BEGIN@29 which was called: # once (5µs+18µs) by Date::Parse::BEGIN@10 at line 29 use constant SECS_PER_DAY => 86400; # spent 23µs making 1 call to Time::Local::BEGIN@29 # spent 18µs making 1 call to constant::import
30
31					my $MaxDay;
32	1	900ns			if ($] < 5.012000) {
33					my $MaxInt;
34					if ( $^O eq 'MacOS' ) {
35					# time_t is unsigned...
36					$MaxInt = ( 1 << ( 8 * $Config{ivsize} ) ) - 1;
37					}
38					else {
39					$MaxInt = ( ( 1 << ( 8 * $Config{ivsize} - 2 ) ) - 1 ) * 2 + 1;
40					}
41
42					$MaxDay = int( ( $MaxInt - ( SECS_PER_DAY / 2 ) ) / SECS_PER_DAY ) - 1;
43					}
44					else {
45					# recent localtime()'s limit is the year 2**31
46	1	300ns			$MaxDay = 365 * (2**31);
47					}
48
49					# Determine the EPOC day for this machine
50	1	100ns			my $Epoc = 0;
51	1	2µs			if ( $^O eq 'vos' ) {
52					# work around posix-977 -- VOS doesn't handle dates in the range
53					# 1970-1980.
54					$Epoc = _daygm( 0, 0, 0, 1, 0, 70, 4, 0 );
55					}
56					elsif ( $^O eq 'MacOS' ) {
57					$MaxDay *=2 if $^O eq 'MacOS'; # time_t unsigned ... quick hack?
58					# MacOS time() is seconds since 1 Jan 1904, localtime
59					# so we need to calculate an offset to apply later
60					$Epoc = 693901;
61					$SecOff = timelocal( localtime(0)) - timelocal( gmtime(0) ) ;
62					$Epoc += _daygm( gmtime(0) );
63					}
64					else {
65	1	8µs	1	16µs	$Epoc = _daygm( gmtime(0) ); # spent 16µs making 1 call to Time::Local::_daygm
66					}
67
68	1	700ns			%Cheat = (); # clear the cache as epoc has changed
69
70					# spent 34µs (28+6) within Time::Local::_daygm which was called 3 times, avg 11µs/call: # 2 times (15µs+3µs) by Time::Local::timegm at line 122, avg 9µs/call # once (13µs+3µs) by Date::Parse::BEGIN@10 at line 65 sub _daygm {
71
72					# This is written in such a byzantine way in order to avoid
73					# lexical variables and sub calls, for speed
74					return $_[3] + (
75	3	31µs	3	6µs	$Cheat{ pack( 'ss', @_[ 4, 5 ] ) } \|\|= do { # spent 6µs making 3 calls to Time::Local::CORE:pack, avg 2µs/call
76	2	2µs			my $month = ( $_[4] + 10 ) % 12;
77	2	3µs			my $year = $_[5] + 1900 - int($month / 10);
78
79	2	4µs			( ( 365 * $year )
80					+ int( $year / 4 )
81					- int( $year / 100 )
82					+ int( $year / 400 )
83					+ int( ( ( $month * 306 ) + 5 ) / 10 )
84					)
85					- $Epoc;
86					}
87					);
88					}
89
90					sub _timegm {
91					my $sec =
92					$SecOff + $_[0] + ( SECS_PER_MINUTE * $_[1] ) + ( SECS_PER_HOUR * $_[2] );
93
94					return $sec + ( SECS_PER_DAY * &_daygm );
95					}
96
97					# spent 40µs (21+18) within Time::Local::timegm which was called 2 times, avg 20µs/call: # 2 times (21µs+18µs) by Set::Infinite::BEGIN@18 at line 32 of Set/Infinite/Arithmetic.pm, avg 20µs/call sub timegm {
98	2	1µs			my ( $sec, $min, $hour, $mday, $month, $year ) = @_;
99
100	2	2µs			if ( $year >= 1000 ) {
101					$year -= 1900;
102					}
103					elsif ( $year < 100 and $year >= 0 ) {
104					$year += ( $year > $Breakpoint ) ? $Century : $NextCentury;
105					}
106
107	2	1µs			unless ( $Options{no_range_check} ) {
108	2	1µs			croak "Month '$month' out of range 0..11"
109					if $month > 11
110					or $month < 0;
111
112	2	900ns			my $md = $MonthDays[$month];
113	2	500ns			++$md
114					if $month == 1 && _is_leap_year( $year + 1900 );
115
116	2	800ns			croak "Day '$mday' out of range 1..$md" if $mday > $md or $mday < 1;
117	2	600ns			croak "Hour '$hour' out of range 0..23" if $hour > 23 or $hour < 0;
118	2	600ns			croak "Minute '$min' out of range 0..59" if $min > 59 or $min < 0;
119	2	900ns			croak "Second '$sec' out of range 0..59" if $sec >= 60 or $sec < 0;
120					}
121
122	2	3µs	2	18µs	my $days = _daygm( undef, undef, undef, $mday, $month, $year ); # spent 18µs making 2 calls to Time::Local::_daygm, avg 9µs/call
123
124	2	1µs			unless ($Options{no_range_check} or abs($days) < $MaxDay) {
125					my $msg = '';
126					$msg .= "Day too big - $days > $MaxDay\n" if $days > $MaxDay;
127
128					$year += 1900;
129					$msg .= "Cannot handle date ($sec, $min, $hour, $mday, $month, $year)";
130
131					croak $msg;
132					}
133
134	2	5µs			return $sec
135					+ $SecOff
136					+ ( SECS_PER_MINUTE * $min )
137					+ ( SECS_PER_HOUR * $hour )
138					+ ( SECS_PER_DAY * $days );
139					}
140
141					sub _is_leap_year {
142					return 0 if $_[0] % 4;
143					return 1 if $_[0] % 100;
144					return 0 if $_[0] % 400;
145
146					return 1;
147					}
148
149					sub timegm_nocheck {
150					local $Options{no_range_check} = 1;
151					return &timegm;
152					}
153
154					sub timelocal {
155					my $ref_t = &timegm;
156					my $loc_for_ref_t = _timegm( localtime($ref_t) );
157
158					my $zone_off = $loc_for_ref_t - $ref_t
159					or return $loc_for_ref_t;
160
161					# Adjust for timezone
162					my $loc_t = $ref_t - $zone_off;
163
164					# Are we close to a DST change or are we done
165					my $dst_off = $ref_t - _timegm( localtime($loc_t) );
166
167					# If this evaluates to true, it means that the value in $loc_t is
168					# the _second_ hour after a DST change where the local time moves
169					# backward.
170					if ( ! $dst_off &&
171					( ( $ref_t - SECS_PER_HOUR ) - _timegm( localtime( $loc_t - SECS_PER_HOUR ) ) < 0 )
172					) {
173					return $loc_t - SECS_PER_HOUR;
174					}
175
176					# Adjust for DST change
177					$loc_t += $dst_off;
178
179					return $loc_t if $dst_off > 0;
180
181					# If the original date was a non-extent gap in a forward DST jump,
182					# we should now have the wrong answer - undo the DST adjustment
183					my ( $s, $m, $h ) = localtime($loc_t);
184					$loc_t -= $dst_off if $s != $_[0] \|\| $m != $_[1] \|\| $h != $_[2];
185
186					return $loc_t;
187					}
188
189					sub timelocal_nocheck {
190					local $Options{no_range_check} = 1;
191					return &timelocal;
192					}
193
194	1	11µs			1;
195
196					__END__

					# spent 6µs within Time::Local::CORE:pack which was called 3 times, avg 2µs/call: # 3 times (6µs+0s) by Time::Local::_daygm at line 75, avg 2µs/call sub Time::Local::CORE:pack; # opcode