Filename | /usr/lib/perl5/site_perl/5.12.1/DateTime/TimeZone/OffsetOnly.pm |
Statements | Executed 24 statements in 2.96ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 1.36ms | 2.12ms | BEGIN@11 | DateTime::TimeZone::OffsetOnly::
1 | 1 | 1 | 84µs | 110µs | BEGIN@3 | DateTime::TimeZone::OffsetOnly::
1 | 1 | 1 | 58µs | 298µs | BEGIN@12 | DateTime::TimeZone::OffsetOnly::
1 | 1 | 1 | 53µs | 469µs | BEGIN@9 | DateTime::TimeZone::OffsetOnly::
1 | 1 | 1 | 50µs | 202µs | BEGIN@5 | DateTime::TimeZone::OffsetOnly::
4 | 2 | 1 | 43µs | 43µs | is_utc | DateTime::TimeZone::OffsetOnly::
1 | 1 | 1 | 36µs | 36µs | BEGIN@8 | DateTime::TimeZone::OffsetOnly::
0 | 0 | 0 | 0s | 0s | STORABLE_freeze | DateTime::TimeZone::OffsetOnly::
0 | 0 | 0 | 0s | 0s | STORABLE_thaw | DateTime::TimeZone::OffsetOnly::
0 | 0 | 0 | 0s | 0s | category | DateTime::TimeZone::OffsetOnly::
0 | 0 | 0 | 0s | 0s | is_dst_for_datetime | DateTime::TimeZone::OffsetOnly::
0 | 0 | 0 | 0s | 0s | new | DateTime::TimeZone::OffsetOnly::
0 | 0 | 0 | 0s | 0s | offset_for_datetime | DateTime::TimeZone::OffsetOnly::
0 | 0 | 0 | 0s | 0s | offset_for_local_datetime | DateTime::TimeZone::OffsetOnly::
0 | 0 | 0 | 0s | 0s | short_name_for_datetime | DateTime::TimeZone::OffsetOnly::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package DateTime::TimeZone::OffsetOnly; | ||||
2 | |||||
3 | 3 | 155µs | 2 | 135µs | # spent 110µs (84+25) within DateTime::TimeZone::OffsetOnly::BEGIN@3 which was called:
# once (84µs+25µs) by base::import at line 3 # spent 110µs making 1 call to DateTime::TimeZone::OffsetOnly::BEGIN@3
# spent 25µs making 1 call to strict::import |
4 | |||||
5 | 3 | 188µs | 2 | 355µs | # spent 202µs (50+152) within DateTime::TimeZone::OffsetOnly::BEGIN@5 which was called:
# once (50µs+152µs) by base::import at line 5 # spent 202µs making 1 call to DateTime::TimeZone::OffsetOnly::BEGIN@5
# spent 152µs making 1 call to vars::import |
6 | 1 | 4µs | $VERSION = 0.02; | ||
7 | |||||
8 | 3 | 132µs | 1 | 36µs | # spent 36µs within DateTime::TimeZone::OffsetOnly::BEGIN@8 which was called:
# once (36µs+0s) by base::import at line 8 # spent 36µs making 1 call to DateTime::TimeZone::OffsetOnly::BEGIN@8 |
9 | 3 | 164µs | 2 | 469µs | # spent 469µs (53+417) within DateTime::TimeZone::OffsetOnly::BEGIN@9 which was called:
# once (53µs+417µs) by base::import at line 9 # spent 469µs making 1 call to DateTime::TimeZone::OffsetOnly::BEGIN@9
# spent 417µs making 1 call to base::import, recursion: max depth 1, sum of overlapping time 417µs |
10 | |||||
11 | 3 | 599µs | 1 | 2.12ms | # spent 2.12ms (1.36+759µs) within DateTime::TimeZone::OffsetOnly::BEGIN@11 which was called:
# once (1.36ms+759µs) by base::import at line 11 # spent 2.12ms making 1 call to DateTime::TimeZone::OffsetOnly::BEGIN@11 |
12 | 3 | 1.63ms | 2 | 538µs | # spent 298µs (58+240) within DateTime::TimeZone::OffsetOnly::BEGIN@12 which was called:
# once (58µs+240µs) by base::import at line 12 # spent 298µs making 1 call to DateTime::TimeZone::OffsetOnly::BEGIN@12
# spent 240µs making 1 call to Exporter::import |
13 | |||||
14 | sub new { | ||||
15 | my $class = shift; | ||||
16 | my %p = validate( | ||||
17 | @_, { | ||||
18 | offset => { type => SCALAR }, | ||||
19 | } | ||||
20 | ); | ||||
21 | |||||
22 | my $offset = DateTime::TimeZone::offset_as_seconds( $p{offset} ); | ||||
23 | |||||
24 | die "Invalid offset: $p{offset}\n" unless defined $offset; | ||||
25 | |||||
26 | return DateTime::TimeZone::UTC->new unless $offset; | ||||
27 | |||||
28 | my $self = { | ||||
29 | name => DateTime::TimeZone::offset_as_string($offset), | ||||
30 | offset => $offset, | ||||
31 | }; | ||||
32 | |||||
33 | return bless $self, $class; | ||||
34 | } | ||||
35 | |||||
36 | sub is_dst_for_datetime {0} | ||||
37 | |||||
38 | sub offset_for_datetime { $_[0]->{offset} } | ||||
39 | sub offset_for_local_datetime { $_[0]->{offset} } | ||||
40 | |||||
41 | 4 | 76µs | # spent 43µs within DateTime::TimeZone::OffsetOnly::is_utc which was called 4 times, avg 11µs/call:
# 2 times (22µs+0s) by DateTime::_calc_utc_rd at line 370 of DateTime.pm, avg 11µs/call
# 2 times (20µs+0s) by DateTime::_calc_local_rd at line 411 of DateTime.pm, avg 10µs/call | ||
42 | |||||
43 | sub short_name_for_datetime { $_[0]->name } | ||||
44 | |||||
45 | sub category {undef} | ||||
46 | |||||
47 | sub STORABLE_freeze { | ||||
48 | my $self = shift; | ||||
49 | |||||
50 | return $self->name; | ||||
51 | } | ||||
52 | |||||
53 | sub STORABLE_thaw { | ||||
54 | my $self = shift; | ||||
55 | my $cloning = shift; | ||||
56 | my $serialized = shift; | ||||
57 | |||||
58 | my $class = ref $self || $self; | ||||
59 | |||||
60 | my $obj; | ||||
61 | if ( $class->isa(__PACKAGE__) ) { | ||||
62 | $obj = __PACKAGE__->new( offset => $serialized ); | ||||
63 | } | ||||
64 | else { | ||||
65 | $obj = $class->new( offset => $serialized ); | ||||
66 | } | ||||
67 | |||||
68 | %$self = %$obj; | ||||
69 | |||||
70 | return $self; | ||||
71 | } | ||||
72 | |||||
73 | 1 | 16µs | 1; | ||
74 | |||||
75 | __END__ |