Time-Strptime
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Time/Strptime/TimeZone.pm view on Meta::CPAN
package Time::Strptime::TimeZone;
use strict;
use warnings;
use utf8;
use DateTime::TimeZone;
use Scalar::Util qw/blessed/;
use constant UNIX_EPOCH => 62135683200;
our $DEFAULT = 'local';
sub new {
my ($class, $name) = @_;
$name ||= $DEFAULT;
my $tz = blessed $name && $name->isa('DateTime::TimeZone') ? $name : DateTime::TimeZone->new(name => $name);
return bless [$tz, 0] => $class;
}
sub name { $_[0]->[0]->name }
sub local_rd_as_seconds { $_[0]->[1] + UNIX_EPOCH }
sub set_timezone { $_[0]->[0] = DateTime::TimeZone->new(name => $_[1]) }
sub offset {
$_[0]->[1] = $_[1];
$_[0]->[0]->offset_for_local_datetime($_[0]);
}
1;
__END__
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.441 second using v1.00-cache-2.02-grep-82fe00e-cpan-48ebf85a1963 )