Help for this page

Select Code to Download


  1. or download this
    sub gmtime {
    my $time = shift;
...
    wantarray ? @time : bless [@time, $time, $islocal], 'Time::Piece';
}
  2. or download this
      package Time::MyPiece;
  use base 'Time::Piece';
...
    my $t;
    eval "$t = $SUPER::_mktime(@_)";
  }
  3. or download this
    sub _mktime {
    my ($time, $islocal) = @_;
...
            CORE::gmtime($time);
    wantarray ? @time : bless [@time, $time, $islocal], $class;
}