.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.42)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
.    ds C`
.    ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.\"
.\" Avoid warning from groff about undefined register 'F'.
.de IX
..
.nr rF 0
.if \n(.g .if rF .nr rF 1
.if (\n(rF:(\n(.g==0)) \{\
.    if \nF \{\
.        de IX
.        tm Index:\\$1\t\\n%\t"\\$2"
..
.        if !\nF==2 \{\
.            nr % 0
.            nr F 2
.        \}
.    \}
.\}
.rr rF
.\" ========================================================================
.\"
.IX Title "Epoch 3"
.TH Epoch 3 "2003-05-21" "perl v5.34.0" "User Contributed Perl Documentation"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH "NAME"
Time::Epoch \- Convert between Perl epoch and other epochs
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 5
\&  #!/usr/bin/perl \-wl
\&  use Time::Epoch;
\&  my $perlsec  = 966770660;  # Sun Aug 20 07:24:21 2000 \-0400 on Mac OS
\&  my $epochsec = perl2epoch($perlsec, \*(Aqmacos\*(Aq, \*(Aq\-0400\*(Aq);
\&  my $perlsec2 = epoch2perl($epochsec, \*(Aqmacos\*(Aq, \*(Aq\-0400\*(Aq);
\&
\&  print $perlsec;
\&  print $perlsec2;
\&  print $epochsec;
\&  # correct time on Unix:
\&  print scalar localtime $perlsec;
\&  # correct time on Mac OS (\-0400):
\&  print scalar localtime $epochsec;
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
Exports two functions, \f(CW\*(C`perl2epoch\*(C'\fR and \f(CW\*(C`epoch2perl\*(C'\fR.
Currently only goes between Perl (Unix) epoch and Mac \s-1OS\s0
epoch.  This is in preparation for an eventual move of Perl
to its own universal epoch, so we can get the system epoch
of any platform that differs from Perl's.
.SS "Epochs"
.IX Subsection "Epochs"
.IP "\(bu" 4
macos
.Sp
Takes additional optional parameter of time zone differential.
If time zone differential not supplied, we guess by getting the
different between \f(CW\*(C`localtime\*(C'\fR and \f(CW\*(C`gmtime\*(C'\fR with
<Time::Local::timelocal>.
.SH "BUGS"
.IX Header "BUGS"
.IP "\(bu" 4
Hm.  With the above test, \f(CW\*(C`scalar localtime $perlsec\*(C'\fR under my Linux
box and \f(CW\*(C`scalar localtime $epochsec\*(C'\fR under my Mac \s-1OS\s0 box are off by
one second from each other.  Maybe a leap second thing?  Odd.
.SH "AUTHOR"
.IX Header "AUTHOR"
Chris Nandor <pudge@pobox.com>, http://pudge.net/
.PP
Copyright (c) 2000\-2003 Chris Nandor.  All rights reserved.  This program is
free software; you can redistribute it and/or modify it under the terms
of the Artistic License, distributed with Perl.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
\&\fBperl\fR\|(1), \fBperlport\fR\|(1), Time::Local.