����JFIF��x�x����'
Server IP : 78.140.185.180 / Your IP : 18.223.121.54 Web Server : LiteSpeed System : Linux cpanel13.v.fozzy.com 4.18.0-513.11.1.lve.el8.x86_64 #1 SMP Thu Jan 18 16:21:02 UTC 2024 x86_64 User : builderbox ( 1072) PHP Version : 7.3.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /usr/share/perl5/vendor_perl/DateTime/TimeZone/ |
Upload File : |
package DateTime::TimeZone::Floating; use strict; use warnings; use namespace::autoclean; our $VERSION = '2.62'; use parent 'Class::Singleton', 'DateTime::TimeZone::OffsetOnly'; sub new { return shift->instance; } ## no critic (Subroutines::ProhibitUnusedPrivateSubroutines) sub _new_instance { my $class = shift; return bless { name => 'floating', offset => 0 }, $class; } ## use critic sub is_floating {1} sub STORABLE_thaw { my $self = shift; my $class = ref $self || $self; my $obj; if ( $class->isa(__PACKAGE__) ) { $obj = __PACKAGE__->new(); } else { $obj = $class->new(); } %$self = %$obj; return $self; } 1; # ABSTRACT: A time zone that is always local __END__ =pod =encoding UTF-8 =head1 NAME DateTime::TimeZone::Floating - A time zone that is always local =head1 VERSION version 2.62 =head1 SYNOPSIS my $floating_tz = DateTime::TimeZone::Floating->new; =head1 DESCRIPTION This class is used to provide the DateTime::TimeZone API needed by DateTime.pm, but for floating times, as defined by the RFC 2445 spec. A floating time has no time zone, and has an effective offset of zero. =head1 USAGE This class has the same methods as a real time zone object. The C<short_name_for_datetime()> method returns the string "floating" and the C<category()> method returns C<undef>. =head1 SUPPORT Bugs may be submitted at L<https://github.com/houseabsolute/DateTime-TimeZone/issues>. =head1 SOURCE The source code repository for DateTime-TimeZone can be found at L<https://github.com/houseabsolute/DateTime-TimeZone>. =head1 AUTHOR Dave Rolsky <autarch@urth.org> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2024 by Dave Rolsky. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. The full text of the license can be found in the F<LICENSE> file included with this distribution. =cut