Filename | /2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/DateTime/TimeZone/UTC.pm |
Statements | Executed 1484 statements in 5.37ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
882 | 2 | 1 | 1.55ms | 1.55ms | is_utc | DateTime::TimeZone::UTC::
294 | 1 | 1 | 672µs | 672µs | offset_for_datetime | DateTime::TimeZone::UTC::
294 | 1 | 1 | 635µs | 635µs | offset_for_local_datetime | DateTime::TimeZone::UTC::
1 | 1 | 1 | 13µs | 13µs | _new_instance | DateTime::TimeZone::UTC::
1 | 1 | 1 | 12µs | 14µs | BEGIN@6 | DateTime::TimeZone::UTC::
1 | 1 | 1 | 7µs | 14µs | BEGIN@7 | DateTime::TimeZone::UTC::
1 | 1 | 1 | 7µs | 28µs | BEGIN@9 | DateTime::TimeZone::UTC::
0 | 0 | 0 | 0s | 0s | category | DateTime::TimeZone::UTC::
0 | 0 | 0 | 0s | 0s | is_dst_for_datetime | DateTime::TimeZone::UTC::
0 | 0 | 0 | 0s | 0s | new | DateTime::TimeZone::UTC::
0 | 0 | 0 | 0s | 0s | short_name_for_datetime | DateTime::TimeZone::UTC::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package DateTime::TimeZone::UTC; | ||||
2 | { | ||||
3 | 2 | 1µs | $DateTime::TimeZone::UTC::VERSION = '1.46'; | ||
4 | } | ||||
5 | |||||
6 | 3 | 18µs | 2 | 16µs | # spent 14µs (12+2) within DateTime::TimeZone::UTC::BEGIN@6 which was called:
# once (12µs+2µs) by DateTime::TimeZone::OffsetOnly::BEGIN@11 at line 6 # spent 14µs making 1 call to DateTime::TimeZone::UTC::BEGIN@6
# spent 2µs making 1 call to strict::import |
7 | 3 | 19µs | 2 | 21µs | # spent 14µs (7+7) within DateTime::TimeZone::UTC::BEGIN@7 which was called:
# once (7µs+7µs) by DateTime::TimeZone::OffsetOnly::BEGIN@11 at line 7 # spent 14µs making 1 call to DateTime::TimeZone::UTC::BEGIN@7
# spent 7µs making 1 call to warnings::import |
8 | |||||
9 | 3 | 111µs | 2 | 28µs | # spent 28µs (7+21) within DateTime::TimeZone::UTC::BEGIN@9 which was called:
# once (7µs+21µs) by DateTime::TimeZone::OffsetOnly::BEGIN@11 at line 9 # spent 28µs making 1 call to DateTime::TimeZone::UTC::BEGIN@9
# spent 21µs making 1 call to parent::import, recursion: max depth 1, sum of overlapping time 21µs |
10 | |||||
11 | sub new { | ||||
12 | return shift->instance; | ||||
13 | } | ||||
14 | |||||
15 | # spent 13µs within DateTime::TimeZone::UTC::_new_instance which was called:
# once (13µs+0s) by Class::Singleton::instance at line 58 of Class/Singleton.pm | ||||
16 | 2 | 15µs | my $class = shift; | ||
17 | |||||
18 | return bless { name => 'UTC' }, $class; | ||||
19 | } | ||||
20 | |||||
21 | sub is_dst_for_datetime {0} | ||||
22 | |||||
23 | 294 | 1.02ms | # spent 672µs within DateTime::TimeZone::UTC::offset_for_datetime which was called 294 times, avg 2µs/call:
# 294 times (672µs+0s) by DateTime::offset at line 929 of DateTime.pm, avg 2µs/call | ||
24 | 294 | 1.09ms | # spent 635µs within DateTime::TimeZone::UTC::offset_for_local_datetime which was called 294 times, avg 2µs/call:
# 294 times (635µs+0s) by DateTime::_offset_for_local_datetime at line 932 of DateTime.pm, avg 2µs/call | ||
25 | |||||
26 | sub short_name_for_datetime {'UTC'} | ||||
27 | |||||
28 | sub category {undef} | ||||
29 | |||||
30 | 882 | 3.10ms | # spent 1.55ms within DateTime::TimeZone::UTC::is_utc which was called 882 times, avg 2µs/call:
# 588 times (791µs+0s) by DateTime::_calc_local_rd at line 413 of DateTime.pm, avg 1µs/call
# 294 times (755µs+0s) by DateTime::_calc_utc_rd at line 372 of DateTime.pm, avg 3µs/call | ||
31 | |||||
32 | 1 | 2µs | 1; | ||
33 | |||||
34 | # ABSTRACT: The UTC time zone | ||||
35 | |||||
- - | |||||
38 | =pod | ||||
39 | |||||
40 | =head1 NAME | ||||
41 | |||||
42 | DateTime::TimeZone::UTC - The UTC time zone | ||||
43 | |||||
44 | =head1 VERSION | ||||
45 | |||||
46 | version 1.46 | ||||
47 | |||||
48 | =head1 SYNOPSIS | ||||
49 | |||||
50 | my $utc_tz = DateTime::TimeZone::UTC->new; | ||||
51 | |||||
52 | =head1 DESCRIPTION | ||||
53 | |||||
54 | This class is used to provide the DateTime::TimeZone API needed by | ||||
55 | DateTime.pm for the UTC time zone, which is not explicitly included in | ||||
56 | the Olson time zone database. | ||||
57 | |||||
58 | The offset for this object will always be zero. | ||||
59 | |||||
60 | =head1 USAGE | ||||
61 | |||||
62 | This class has the same methods as a real time zone object, but the | ||||
63 | C<category()> method returns undef and C<is_utc()> returns true. | ||||
64 | |||||
65 | =head1 AUTHOR | ||||
66 | |||||
67 | Dave Rolsky <autarch@urth.org> | ||||
68 | |||||
69 | =head1 COPYRIGHT AND LICENSE | ||||
70 | |||||
71 | This software is copyright (c) 2012 by Dave Rolsky. | ||||
72 | |||||
73 | This is free software; you can redistribute it and/or modify it under | ||||
74 | the same terms as the Perl 5 programming language system itself. | ||||
75 | |||||
76 | =cut | ||||
77 | |||||
78 | |||||
79 | __END__ |