← Index
NYTProf Performance Profile   « line view »
For /usr/local/libexec/sympa/task_manager-debug.pl
  Run on Tue Jun 1 22:32:51 2021
Reported on Tue Jun 1 22:35:06 2021

Filename/usr/local/lib/perl5/site_perl/DateTime/TimeZone/Floating.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sDateTime::TimeZone::Floating::::BEGIN@3DateTime::TimeZone::Floating::BEGIN@3
0000s0sDateTime::TimeZone::Floating::::BEGIN@4DateTime::TimeZone::Floating::BEGIN@4
0000s0sDateTime::TimeZone::Floating::::BEGIN@5DateTime::TimeZone::Floating::BEGIN@5
0000s0sDateTime::TimeZone::Floating::::BEGIN@9DateTime::TimeZone::Floating::BEGIN@9
0000s0sDateTime::TimeZone::Floating::::STORABLE_thawDateTime::TimeZone::Floating::STORABLE_thaw
0000s0sDateTime::TimeZone::Floating::::_new_instanceDateTime::TimeZone::Floating::_new_instance
0000s0sDateTime::TimeZone::Floating::::is_floatingDateTime::TimeZone::Floating::is_floating
0000s0sDateTime::TimeZone::Floating::::newDateTime::TimeZone::Floating::new
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package DateTime::TimeZone::Floating;
2
3use strict;
4use warnings;
5use namespace::autoclean;
6
7our $VERSION = '2.47';
8
9use parent 'Class::Singleton', 'DateTime::TimeZone::OffsetOnly';
10
11sub new {
12 return shift->instance;
13}
14
15## no critic (Subroutines::ProhibitUnusedPrivateSubroutines)
16sub _new_instance {
17 my $class = shift;
18
19 return bless {
20 name => 'floating',
21 offset => 0
22 }, $class;
23}
24## use critic
25
26sub is_floating {1}
27
28sub STORABLE_thaw {
29 my $self = shift;
30
31 my $class = ref $self || $self;
32
33 my $obj;
34 if ( $class->isa(__PACKAGE__) ) {
35 $obj = __PACKAGE__->new();
36 }
37 else {
38 $obj = $class->new();
39 }
40
41 %$self = %$obj;
42
43 return $self;
44}
45
461;
47
48# ABSTRACT: A time zone that is always local
49
50__END__