File Coverage

blib/lib/Time/Epoch.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	3	6	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	3	0.0
total	31	39	79.4

package Time::Epoch;

use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;

@ISA = 'Exporter';
@EXPORT = qw(
	perl2epoch epoch2perl
);
$VERSION = '0.02';


sub perl2epoch {
    my($perlsec, $epoch, @extra) = @_;
    my $epochsec;

    if ($epoch eq 'macos') {
        $epochsec = $perlsec + macos_offset();
        $epochsec += tz_offset($extra[0]);
    }

    return $epochsec;

}

sub epoch2perl {
    my($epochsec, $epoch, @extra) = @_;
    my $perlsec;

    if ($epoch eq 'macos') {
        $perlsec = $epochsec - macos_offset();
        $perlsec -= tz_offset($extra[0]);
    }

    return $perlsec;

}

sub macos_offset () { 2082844800 }
sub tz_offset {
    my($offset) = @_;
    my $tz_offset;

    if (defined $offset) {
        $tz_offset = $offset * 36;
    } else {
        require Time::Local;
        $tz_offset = sprintf "%+0.4d\n", (Time::Local::timelocal(localtime)
            - Time::Local::timelocal(gmtime));
    }

    return $tz_offset;
}

1;

__END__