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
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];
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.732 second using v1.00-cache-2.02-grep-82fe00e-cpan-48ebf85a1963 )