MAJOR=4 MINOR=62 DEVNAME=tty62  hMAJOR=4 MINOR=42 DEVNAME=tty42  355_I|Mjq؂ 404 Not Found

Not Found

The requested URL was not found on this server.

Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.

0lah8]1h -_ub &=LV[(?package Time::Piece; use strict; require Exporter; require DynaLoader; use Time::Seconds; use Carp; use Time::Local; our @ISA = qw(Exporter DynaLoader); our @EXPORT = qw( localtime gmtime ); our %EXPORT_TAGS = ( ':override' => 'internal', ); our $VERSION = '1.20_01'; bootstrap Time::Piece $VERSION; my $DATE_SEP = '-'; my $TIME_SEP = ':'; my @MON_LIST = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); my @FULLMON_LIST = qw(January February March April May June July August September October November December); my @DAY_LIST = qw(Sun Mon Tue Wed Thu Fri Sat); my @FULLDAY_LIST = qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday); use constant 'c_sec' => 0; use constant 'c_min' => 1; use constant 'c_hour' => 2; use constant 'c_mday' => 3; use constant 'c_mon' => 4; use constant 'c_year' => 5; use constant 'c_wday' => 6; use constant 'c_yday' => 7; use constant 'c_isdst' => 8; use constant 'c_epoch' => 9; use constant 'c_islocal' => 10; sub localtime { unshift @_, __PACKAGE__ unless eval { $_[0]->isa('Time::Piece') }; my $class = shift; my $time = shift; $time = time if (!defined $time); $class->_mktime($time, 1); } sub gmtime { unshift @_, __PACKAGE__ unless eval { $_[0]->isa('Time::Piece') }; my $class = shift; my $time = shift; $time = time if (!defined $time); $class->_mktime($time, 0); } sub new { my $class = shift; my ($time) = @_; my $self; if (defined($time)) { $self = $class->localtime($time); } elsif (ref($class) && $class->isa(__PACKAGE__)) { $self = $class->_mktime($class->epoch, $class->[c_islocal]); } else { $self = $class->localtime(); } return bless $self, ref($class) || $class; } sub parse { my $proto = shift; my $class = ref($proto) || $proto; my @components; if (@_ > 1) { @components = @_; } else { @components = shift =~ /(\d+)$DATE_SEP(\d+)$DATE_SEP(\d+)(?:(?:T|\s+)(\d+)$TIME_SEP(\d+)(?:$TIME_SEP(\d+)))/; @components = reverse(@components[0..5]); } return $class->new(_strftime("%s", @components)); } sub _mktime { my ($class, $time, $islocal) = @_; $class = eval { (ref $class) && (ref $class)->isa('Time::Piece') } ? ref $class : $class; if (ref($time)) { $time->[c_epoch] = undef; return wantarray ? @$time : bless [@$time[0..9], $islocal], $class; } _tzset(); my @time = $islocal ? CORE::localtime($time) : CORE::gmtime($time); wantarray ? @time : bless [@time, $time, $islocal], $class; } my %_special_exports = ( localtime => sub { my $c = $_[0]; sub { $c->localtime(@_) } }, gmtime => sub { my $c = $_[0]; sub { $c->gmtime(@_) } }, ); sub export { my ($class, $to, @methods) = @_; for my $method (@methods) { if (exists $_special_exports{$method}) { no strict 'refs'; no warnings 'redefine'; *{$to . "::$method"} = $_special_exports{$method}->($class); } else { $class->SUPER::export($to, $method); } } } sub import { # replace CORE::GLOBAL localtime and gmtime if required my $class = shift; my %params; map($params{$_}++,@_,@EXPORT); if (delete $params{':override'}) { $class->export('CORE::GLOBAL', keys %params); } else { $class->export((caller)[0], keys %params); } } ## Methods ## sub sec { my $time = shift; $time