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