Filename | /usr/lib/perl5/site_perl/5.12.1/DateTime/TimeZone/Local.pm |
Statements | Executed 19 statements in 2.95ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 9.40ms | 10.3ms | BEGIN@10 | DateTime::TimeZone::Local::
1 | 1 | 1 | 82µs | 108µs | BEGIN@3 | DateTime::TimeZone::Local::
1 | 1 | 1 | 77µs | 170µs | BEGIN@4 | DateTime::TimeZone::Local::
1 | 1 | 1 | 49µs | 196µs | BEGIN@6 | DateTime::TimeZone::Local::
1 | 1 | 1 | 33µs | 33µs | BEGIN@9 | DateTime::TimeZone::Local::
0 | 0 | 0 | 0s | 0s | FromEnv | DateTime::TimeZone::Local::
0 | 0 | 0 | 0s | 0s | TimeZone | DateTime::TimeZone::Local::
0 | 0 | 0 | 0s | 0s | _IsValidName | DateTime::TimeZone::Local::
0 | 0 | 0 | 0s | 0s | _load_subclass | DateTime::TimeZone::Local::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package DateTime::TimeZone::Local; | ||||
2 | |||||
3 | 3 | 158µs | 2 | 134µs | # spent 108µs (82+26) within DateTime::TimeZone::Local::BEGIN@3 which was called:
# once (82µs+26µs) by DateTime::TimeZone::BEGIN@12 at line 3 # spent 108µs making 1 call to DateTime::TimeZone::Local::BEGIN@3
# spent 26µs making 1 call to strict::import |
4 | 3 | 147µs | 2 | 262µs | # spent 170µs (77+93) within DateTime::TimeZone::Local::BEGIN@4 which was called:
# once (77µs+93µs) by DateTime::TimeZone::BEGIN@12 at line 4 # spent 170µs making 1 call to DateTime::TimeZone::Local::BEGIN@4
# spent 92µs making 1 call to warnings::import |
5 | |||||
6 | 3 | 173µs | 2 | 343µs | # spent 196µs (49+147) within DateTime::TimeZone::Local::BEGIN@6 which was called:
# once (49µs+147µs) by DateTime::TimeZone::BEGIN@12 at line 6 # spent 196µs making 1 call to DateTime::TimeZone::Local::BEGIN@6
# spent 147µs making 1 call to vars::import |
7 | 1 | 7µs | $VERSION = '0.01'; | ||
8 | |||||
9 | 3 | 134µs | 1 | 33µs | # spent 33µs within DateTime::TimeZone::Local::BEGIN@9 which was called:
# once (33µs+0s) by DateTime::TimeZone::BEGIN@12 at line 9 # spent 33µs making 1 call to DateTime::TimeZone::Local::BEGIN@9 |
10 | 3 | 2.27ms | 1 | 10.3ms | # spent 10.3ms (9.40+859µs) within DateTime::TimeZone::Local::BEGIN@10 which was called:
# once (9.40ms+859µs) by DateTime::TimeZone::BEGIN@12 at line 10 # spent 10.3ms making 1 call to DateTime::TimeZone::Local::BEGIN@10 |
11 | |||||
12 | sub TimeZone { | ||||
13 | my $class = shift; | ||||
14 | |||||
15 | my $subclass = $class->_load_subclass(); | ||||
16 | |||||
17 | for my $meth ( $subclass->Methods() ) { | ||||
18 | my $tz = $subclass->$meth(); | ||||
19 | |||||
20 | return $tz if $tz; | ||||
21 | } | ||||
22 | |||||
23 | die "Cannot determine local time zone\n"; | ||||
24 | } | ||||
25 | |||||
26 | { | ||||
27 | # Stolen from File::Spec. My theory is that other folks can write | ||||
28 | # the non-existent modules if they feel a need, and release them | ||||
29 | # to CPAN separately. | ||||
30 | 2 | 33µs | my %subclass = ( | ||
31 | MSWin32 => 'Win32', | ||||
32 | VMS => 'VMS', | ||||
33 | MacOS => 'Mac', | ||||
34 | os2 => 'OS2', | ||||
35 | epoc => 'Epoc', | ||||
36 | NetWare => 'Win32', | ||||
37 | symbian => 'Win32', | ||||
38 | dos => 'OS2', | ||||
39 | cygwin => 'Unix', | ||||
40 | ); | ||||
41 | |||||
42 | sub _load_subclass { | ||||
43 | my $class = shift; | ||||
44 | |||||
45 | my $os_name = $subclass{$^O} || $^O; | ||||
46 | my $subclass = $class . '::' . $os_name; | ||||
47 | |||||
48 | return $subclass if $subclass->can('Methods'); | ||||
49 | |||||
50 | local $@; | ||||
51 | local $SIG{__DIE__}; | ||||
52 | eval "use $subclass"; | ||||
53 | if ( my $e = $@ ) { | ||||
54 | if ( $e =~ /locate.+$os_name/ ) { | ||||
55 | $subclass = $class . '::' . 'Unix'; | ||||
56 | |||||
57 | eval "use $subclass"; | ||||
58 | my $e2 = $@; | ||||
59 | die $e2 if $e2; | ||||
60 | } | ||||
61 | else { | ||||
62 | die $e; | ||||
63 | } | ||||
64 | } | ||||
65 | |||||
66 | return $subclass; | ||||
67 | } | ||||
68 | } | ||||
69 | |||||
70 | sub FromEnv { | ||||
71 | my $class = shift; | ||||
72 | |||||
73 | foreach my $var ( $class->EnvVars() ) { | ||||
74 | if ( $class->_IsValidName( $ENV{$var} ) ) { | ||||
75 | my $tz; | ||||
76 | { | ||||
77 | local $@; | ||||
78 | local $SIG{__DIE__}; | ||||
79 | $tz = eval { DateTime::TimeZone->new( name => $ENV{$var} ) }; | ||||
80 | } | ||||
81 | return $tz if $tz; | ||||
82 | } | ||||
83 | } | ||||
84 | |||||
85 | return; | ||||
86 | } | ||||
87 | |||||
88 | sub _IsValidName { | ||||
89 | shift; | ||||
90 | |||||
91 | return 0 unless defined $_[0]; | ||||
92 | return 0 if $_[0] eq 'local'; | ||||
93 | |||||
94 | return $_[0] =~ m{^[\w/\-\+]+$}; | ||||
95 | } | ||||
96 | |||||
97 | 1 | 26µs | 1; | ||
98 | |||||
99 | __END__ |