Profile of DateTime/TimeZone/Local/Unix.pm

Filename	/usr/share/perl5/DateTime/TimeZone/Local/Unix.pm
Statements	Executed 88 statements in 2.12ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	906µs	1.78ms	DateTime::TimeZone::Local::Unix::_FindMatchingZoneinfoFile
36	1	1	41µs	41µs	DateTime::TimeZone::Local::Unix::CORE:ftfile (opcode)
36	2	1	31µs	31µs	DateTime::TimeZone::Local::Unix::CORE:ftlink (opcode)
1	1	1	26µs	90µs	DateTime::TimeZone::Local::Unix::BEGIN@6
1	1	1	20µs	32µs	DateTime::TimeZone::Local::Unix::BEGIN@3
1	1	1	13µs	43µs	DateTime::TimeZone::Local::Unix::BEGIN@7
1	1	1	11µs	21µs	DateTime::TimeZone::Local::Unix::BEGIN@4
1	1	1	9µs	30µs	DateTime::TimeZone::Local::Unix::_EtcFile
30	3	1	8µs	8µs	DateTime::TimeZone::Local::Unix::CORE:ftsize (opcode)
1	1	1	7µs	7µs	DateTime::TimeZone::Local::Unix::CORE:fteread (opcode)
1	1	1	2µs	2µs	DateTime::TimeZone::Local::Unix::CORE:ftdir (opcode)
0	0	0	0s	0s	DateTime::TimeZone::Local::Unix::EnvVars
0	0	0	0s	0s	DateTime::TimeZone::Local::Unix::FromEtcDefaultInit
0	0	0	0s	0s	DateTime::TimeZone::Local::Unix::FromEtcLocaltime
0	0	0	0s	0s	DateTime::TimeZone::Local::Unix::FromEtcSysconfigClock
0	0	0	0s	0s	DateTime::TimeZone::Local::Unix::FromEtcTIMEZONE
0	0	0	0s	0s	DateTime::TimeZone::Local::Unix::FromEtcTimezone
0	0	0	0s	0s	DateTime::TimeZone::Local::Unix::Methods
0	0	0	0s	0s	DateTime::TimeZone::Local::Unix::_ReadEtcDefaultInit
0	0	0	0s	0s	DateTime::TimeZone::Local::Unix::_ReadEtcSysconfigClock
0	0	0	0s	0s	DateTime::TimeZone::Local::Unix::_Readlink
0	0	0	0s	0s	DateTime::TimeZone::Local::Unix::__ANON__[:117]

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package DateTime::TimeZone::Local::Unix;
2	1	500ns			$DateTime::TimeZone::Local::Unix::VERSION = '1.75';
3	2	48µs	2	44µs	# spent 32µs (20+12) within DateTime::TimeZone::Local::Unix::BEGIN@3 which was called: # once (20µs+12µs) by C4::NewsChannels::GetNewsToDisplay at line 3 use strict; # spent 32µs making 1 call to DateTime::TimeZone::Local::Unix::BEGIN@3 # spent 12µs making 1 call to strict::import
4	2	45µs	2	32µs	# spent 21µs (11+10) within DateTime::TimeZone::Local::Unix::BEGIN@4 which was called: # once (11µs+10µs) by C4::NewsChannels::GetNewsToDisplay at line 4 use warnings; # spent 21µs making 1 call to DateTime::TimeZone::Local::Unix::BEGIN@4 # spent 10µs making 1 call to warnings::import
5
6	3	117µs	3	153µs	# spent 90µs (26+64) within DateTime::TimeZone::Local::Unix::BEGIN@6 which was called: # once (26µs+64µs) by C4::NewsChannels::GetNewsToDisplay at line 6 use Cwd 3; # spent 90µs making 1 call to DateTime::TimeZone::Local::Unix::BEGIN@6 # spent 46µs making 1 call to Exporter::import # spent 18µs making 1 call to version::vxs::_VERSION
7	2	1.22ms	2	72µs	# spent 43µs (13+30) within DateTime::TimeZone::Local::Unix::BEGIN@7 which was called: # once (13µs+30µs) by C4::NewsChannels::GetNewsToDisplay at line 7 use parent 'DateTime::TimeZone::Local'; # spent 43µs making 1 call to DateTime::TimeZone::Local::Unix::BEGIN@7 # spent 30µs making 1 call to parent::import
8
9					sub Methods {
10	1	600ns			return qw(
11					FromEnv
12					FromEtcLocaltime
13					FromEtcTimezone
14					FromEtcTIMEZONE
15					FromEtcSysconfigClock
16					FromEtcDefaultInit
17					);
18					}
19
20	1	300ns			sub EnvVars { return 'TZ' }
21
22	1	100ns			our $EtcDir = '/etc';
23
24					# spent 30µs (9+21) within DateTime::TimeZone::Local::Unix::_EtcFile which was called: # once (9µs+21µs) by C4::NewsChannels::GetNewsToDisplay at line 32 sub _EtcFile {
25	1	100ns			shift;
26	1	32µs	4	30µs	return File::Spec->catfile( $EtcDir, @_ ); # spent 21µs making 1 call to File::Spec::Unix::catfile # spent 7µs making 1 call to File::Spec::Unix::catdir # spent 2µs making 2 calls to File::Spec::Unix::canonpath, avg 1µs/call
27					}
28
29					sub FromEtcLocaltime {
30	1	300ns			my $class = shift;
31
32	1	2µs	1	30µs	my $lt_file = $class->_EtcFile('localtime'); # spent 30µs making 1 call to DateTime::TimeZone::Local::Unix::_EtcFile
33	1	20µs	2	8µs	return unless -r $lt_file && -s _; # spent 7µs making 1 call to DateTime::TimeZone::Local::Unix::CORE:fteread # spent 700ns making 1 call to DateTime::TimeZone::Local::Unix::CORE:ftsize
34
35	1	100ns			my $real_name;
36	1	6µs	1	2µs	if ( -l $lt_file ) { # spent 2µs making 1 call to DateTime::TimeZone::Local::Unix::CORE:ftlink
37
38					# The _Readlink sub exists so the test suite can mock it.
39					$real_name = $class->_Readlink($lt_file);
40					}
41
42	1	2µs	1	1.78ms	$real_name \|\|= $class->_FindMatchingZoneinfoFile($lt_file); # spent 1.78ms making 1 call to DateTime::TimeZone::Local::Unix::_FindMatchingZoneinfoFile
43
44	1	300ns			if ( defined $real_name ) {
45	1	18µs	1	10µs	my ( $vol, $dirs, $file ) = File::Spec->splitpath($real_name); # spent 10µs making 1 call to File::Spec::Unix::splitpath
46
47					my @parts
48	1	10µs	1	4µs	= grep { defined && length } File::Spec->splitdir($dirs), $file; # spent 4µs making 1 call to File::Spec::Unix::splitdir
49
50	1	1µs			foreach my $x ( reverse 0 .. $#parts ) {
51	1	700ns			my $name = (
52					$x < $#parts
53					? join '/', @parts[ $x .. $#parts ]
54					: $parts[$x]
55					);
56
57	1	100ns			my $tz;
58					{
59	2	500ns			local $@;
60	1	2µs			local $SIG{__DIE__};
61	2	69µs	1	0s	$tz = eval { DateTime::TimeZone->new( name => $name ) }; # spent 58µs making 1 call to DateTime::TimeZone::new, recursion: max depth 1, sum of overlapping time 58µs
62					}
63
64	1	7µs			return $tz if $tz;
65					}
66					}
67					}
68
69					sub _Readlink {
70					my $link = $_[1];
71
72					# Using abs_path will resolve multiple levels of link indirection,
73					# whereas readlink just follows the link to the next target.
74					return Cwd::abs_path($link);
75					}
76
77	1	100ns			our $ZoneinfoDir = '/usr/share/zoneinfo';
78					# for systems where /etc/localtime is a copy of a zoneinfo file
79					# spent 1.78ms (906µs+874µs) within DateTime::TimeZone::Local::Unix::_FindMatchingZoneinfoFile which was called: # once (906µs+874µs) by C4::NewsChannels::GetNewsToDisplay at line 42 sub _FindMatchingZoneinfoFile {
80	1	300ns			my $class = shift;
81	1	100ns			my $file_to_match = shift;
82
83	1	7µs	1	2µs	return unless -d $ZoneinfoDir; # spent 2µs making 1 call to DateTime::TimeZone::Local::Unix::CORE:ftdir
84
85	1	1µs			require File::Basename;
86	1	136µs			require File::Compare;
87	1	500ns			require File::Find;
88
89	1	9µs	1	4µs	my $size = -s $file_to_match; # spent 4µs making 1 call to DateTime::TimeZone::Local::Unix::CORE:ftsize
90
91	1	100ns			my $real_name;
92	1	400ns			local $@;
93	1	2µs			local $SIG{__DIE__};
94	1	100ns			local $_;
95	1	300ns			eval {
96					File::Find::find(
97					{
98					wanted => sub {
99	36	273µs	103	286µs	if ( # spent 157µs making 2 calls to File::Compare::compare, avg 78µs/call # spent 56µs making 2 calls to File::Basename::basename, avg 28µs/call # spent 41µs making 36 calls to DateTime::TimeZone::Local::Unix::CORE:ftfile, avg 1µs/call # spent 29µs making 35 calls to DateTime::TimeZone::Local::Unix::CORE:ftlink, avg 826ns/call # spent 3µs making 28 calls to DateTime::TimeZone::Local::Unix::CORE:ftsize, avg 114ns/call
100					!defined $real_name
101					&& -f $_
102					&& !-l $_
103					&& $size == -s _
104
105					# This fixes RT 24026 - apparently such a
106					# file exists on FreeBSD and it can cause a
107					# false positive
108					&& File::Basename::basename($_) ne 'posixrules'
109					&& File::Compare::compare( $_, $file_to_match ) == 0
110					) {
111	1	300ns			$real_name = $_;
112
113					# File::Find has no mechanism for bailing in the
114					# middle of a find.
115	1	21µs			die { found => 1 };
116					}
117					},
118	1	54µs	1	809µs	no_chdir => 1, # spent 809µs making 1 call to File::Find::find
119					},
120					$ZoneinfoDir,
121					);
122					};
123
124	1	400ns			if ($@) {
125	1	7µs			return $real_name if ref $@ && $@->{found};
126					die $@;
127					}
128					}
129
130					sub FromEtcTimezone {
131					my $class = shift;
132
133					my $tz_file = $class->_EtcFile('timezone');
134					return unless -f $tz_file && -r _;
135
136					open my $fh, '<', $tz_file
137					or die "Cannot read $tz_file: $!";
138					my $name = join '', <$fh>;
139					close $fh;
140
141					$name =~ s/^\s+\|\s+$//g;
142
143					return unless $class->_IsValidName($name);
144
145					local $@;
146					local $SIG{__DIE__};
147					return eval { DateTime::TimeZone->new( name => $name ) };
148					}
149
150					sub FromEtcTIMEZONE {
151					my $class = shift;
152
153					my $tz_file = $class->_EtcFile('TIMEZONE');
154					return unless -f $tz_file && -r _;
155
156					open my $fh, '<', $tz_file
157					or die "Cannot read $tz_file: $!";
158
159					my $name;
160					while ( defined( $name = <$fh> ) ) {
161					if ( $name =~ /\A\sTZ\s=\s*(\S+)/ ) {
162					$name = $1;
163					last;
164					}
165					}
166
167					close $fh;
168
169					return unless $class->_IsValidName($name);
170
171					local $@;
172					local $SIG{__DIE__};
173					return eval { DateTime::TimeZone->new( name => $name ) };
174					}
175
176					# RedHat uses this
177					sub FromEtcSysconfigClock {
178					my $class = shift;
179
180					my $clock_file = $class->_EtcFile('sysconfig/clock');
181					return unless -r $clock_file && -f _;
182
183					my $name = $class->_ReadEtcSysconfigClock($clock_file);
184
185					return unless $class->_IsValidName($name);
186
187					local $@;
188					local $SIG{__DIE__};
189					return eval { DateTime::TimeZone->new( name => $name ) };
190					}
191
192					# this is a separate function so that it can be overridden in the test suite
193					sub _ReadEtcSysconfigClock {
194					my $class = shift;
195					my $clock_file = shift;
196
197					open my $fh, '<', $clock_file
198					or die "Cannot read $clock_file: $!";
199
200					local $_;
201					while (<$fh>) {
202					return $1 if /^(?:TIME)?ZONE="([^"]+)"/;
203					}
204					}
205
206					sub FromEtcDefaultInit {
207					my $class = shift;
208
209					my $init_file = $class->_EtcFile('default/init');
210					return unless -r $init_file && -f _;
211
212					my $name = $class->_ReadEtcDefaultInit($init_file);
213
214					return unless $class->_IsValidName($name);
215
216					local $@;
217					local $SIG{__DIE__};
218					return eval { DateTime::TimeZone->new( name => $name ) };
219					}
220
221					# this is a separate function so that it can be overridden in the test
222					# suite
223					sub _ReadEtcDefaultInit {
224					my $class = shift;
225					my $init_file = shift;
226
227					open my $fh, '<', $init_file
228					or die "Cannot read $init_file: $!";
229
230					local $_;
231					while (<$fh>) {
232					return $1 if /^TZ=(.+)/;
233					}
234					}
235
236	1	4µs			1;
237
238					# ABSTRACT: Determine the local system's time zone on Unix
239
240					__END__

					# spent 2µs within DateTime::TimeZone::Local::Unix::CORE:ftdir which was called: # once (2µs+0s) by DateTime::TimeZone::Local::Unix::_FindMatchingZoneinfoFile at line 83 sub DateTime::TimeZone::Local::Unix::CORE:ftdir; # opcode
					# spent 7µs within DateTime::TimeZone::Local::Unix::CORE:fteread which was called: # once (7µs+0s) by C4::NewsChannels::GetNewsToDisplay at line 33 sub DateTime::TimeZone::Local::Unix::CORE:fteread; # opcode
					# spent 41µs within DateTime::TimeZone::Local::Unix::CORE:ftfile which was called 36 times, avg 1µs/call: # 36 times (41µs+0s) by File::Find::find at line 99, avg 1µs/call sub DateTime::TimeZone::Local::Unix::CORE:ftfile; # opcode
					# spent 31µs within DateTime::TimeZone::Local::Unix::CORE:ftlink which was called 36 times, avg 872ns/call: # 35 times (29µs+0s) by File::Find::find at line 99, avg 826ns/call # once (2µs+0s) by C4::NewsChannels::GetNewsToDisplay at line 36 sub DateTime::TimeZone::Local::Unix::CORE:ftlink; # opcode
					# spent 8µs within DateTime::TimeZone::Local::Unix::CORE:ftsize which was called 30 times, avg 257ns/call: # 28 times (3µs+0s) by File::Find::find at line 99, avg 114ns/call # once (4µs+0s) by DateTime::TimeZone::Local::Unix::_FindMatchingZoneinfoFile at line 89 # once (700ns+0s) by C4::NewsChannels::GetNewsToDisplay at line 33 sub DateTime::TimeZone::Local::Unix::CORE:ftsize; # opcode