Filename | /home/s1/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/DateTime/TimeZone/OffsetOnly.pm |
Statements | Executed 16 statements in 559µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 326µs | 388µs | BEGIN@8 | DateTime::TimeZone::OffsetOnly::
1 | 1 | 1 | 18µs | 20µs | BEGIN@3 | DateTime::TimeZone::OffsetOnly::
1 | 1 | 1 | 8µs | 40µs | BEGIN@9 | DateTime::TimeZone::OffsetOnly::
1 | 1 | 1 | 8µs | 12µs | BEGIN@4 | DateTime::TimeZone::OffsetOnly::
1 | 1 | 1 | 7µs | 31µs | BEGIN@6 | DateTime::TimeZone::OffsetOnly::
4 | 2 | 1 | 3µs | 3µs | is_utc | 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 | 1 | 500ns | $DateTime::TimeZone::OffsetOnly::VERSION = '1.98'; | ||
3 | 2 | 26µs | 2 | 22µs | # spent 20µs (18+2) within DateTime::TimeZone::OffsetOnly::BEGIN@3 which was called:
# once (18µs+2µs) by parent::import at line 3 # spent 20µs making 1 call to DateTime::TimeZone::OffsetOnly::BEGIN@3
# spent 2µs making 1 call to strict::import |
4 | 2 | 24µs | 2 | 17µs | # spent 12µs (8+4) within DateTime::TimeZone::OffsetOnly::BEGIN@4 which was called:
# once (8µs+4µs) by parent::import at line 4 # spent 12µs making 1 call to DateTime::TimeZone::OffsetOnly::BEGIN@4
# spent 4µs making 1 call to warnings::import |
5 | |||||
6 | 2 | 26µs | 2 | 31µs | # spent 31µs (7+23) within DateTime::TimeZone::OffsetOnly::BEGIN@6 which was called:
# once (7µs+23µs) by parent::import at line 6 # spent 31µs making 1 call to DateTime::TimeZone::OffsetOnly::BEGIN@6
# spent 23µs making 1 call to parent::import, recursion: max depth 1, sum of overlapping time 23µs |
7 | |||||
8 | 2 | 199µs | 1 | 388µs | # spent 388µs (326+62) within DateTime::TimeZone::OffsetOnly::BEGIN@8 which was called:
# once (326µs+62µs) by parent::import at line 8 # spent 388µs making 1 call to DateTime::TimeZone::OffsetOnly::BEGIN@8 |
9 | 2 | 270µs | 2 | 72µs | # spent 40µs (8+32) within DateTime::TimeZone::OffsetOnly::BEGIN@9 which was called:
# once (8µs+32µs) by parent::import at line 9 # spent 40µs making 1 call to DateTime::TimeZone::OffsetOnly::BEGIN@9
# spent 32µs making 1 call to Exporter::import |
10 | |||||
11 | sub new { | ||||
12 | my $class = shift; | ||||
13 | my %p = validate( | ||||
14 | @_, { | ||||
15 | offset => { type => SCALAR }, | ||||
16 | } | ||||
17 | ); | ||||
18 | |||||
19 | my $offset = DateTime::TimeZone::offset_as_seconds( $p{offset} ); | ||||
20 | |||||
21 | die "Invalid offset: $p{offset}\n" unless defined $offset; | ||||
22 | |||||
23 | return DateTime::TimeZone::UTC->new unless $offset; | ||||
24 | |||||
25 | my $self = { | ||||
26 | name => DateTime::TimeZone::offset_as_string($offset), | ||||
27 | offset => $offset, | ||||
28 | }; | ||||
29 | |||||
30 | return bless $self, $class; | ||||
31 | } | ||||
32 | |||||
33 | sub is_dst_for_datetime {0} | ||||
34 | |||||
35 | sub offset_for_datetime { $_[0]->{offset} } | ||||
36 | sub offset_for_local_datetime { $_[0]->{offset} } | ||||
37 | |||||
38 | 4 | 11µs | # spent 3µs within DateTime::TimeZone::OffsetOnly::is_utc which was called 4 times, avg 800ns/call:
# 2 times (2µs+0s) by DateTime::_calc_utc_rd at line 395 of DateTime.pm, avg 1µs/call
# 2 times (1µs+0s) by DateTime::_calc_local_rd at line 442 of DateTime.pm, avg 500ns/call | ||
39 | |||||
40 | sub short_name_for_datetime { $_[0]->name } | ||||
41 | |||||
42 | sub category {undef} | ||||
43 | |||||
44 | sub STORABLE_freeze { | ||||
45 | my $self = shift; | ||||
46 | |||||
47 | return $self->name; | ||||
48 | } | ||||
49 | |||||
50 | sub STORABLE_thaw { | ||||
51 | my $self = shift; | ||||
52 | my $cloning = shift; | ||||
53 | my $serialized = shift; | ||||
54 | |||||
55 | my $class = ref $self || $self; | ||||
56 | |||||
57 | my $obj; | ||||
58 | if ( $class->isa(__PACKAGE__) ) { | ||||
59 | $obj = __PACKAGE__->new( offset => $serialized ); | ||||
60 | } | ||||
61 | else { | ||||
62 | $obj = $class->new( offset => $serialized ); | ||||
63 | } | ||||
64 | |||||
65 | %$self = %$obj; | ||||
66 | |||||
67 | return $self; | ||||
68 | } | ||||
69 | |||||
70 | 1 | 3µs | 1; | ||
71 | |||||
72 | # ABSTRACT: A DateTime::TimeZone object that just contains an offset | ||||
73 | |||||
74 | __END__ |