File Coverage

blib/lib/Time/Fake.pm

Criterion	Covered	Total	%
statement	25	26	96.1
branch	8	10	80.0
condition	3	4	75.0
subroutine	10	10	100.0
pod	2	2	100.0
total	48	52	92.3

package Time::Fake;
use Carp;
use strict;
use vars '$VERSION';
$VERSION = "0.11";

#####################

my $OFFSET = 0;

*CORE::GLOBAL::time = sub() { CORE::time() + $OFFSET };

*CORE::GLOBAL::localtime = sub(;$) {
   @_ ? CORE::localtime($_[0])
      : CORE::localtime(CORE::time() + $OFFSET);
};

*CORE::GLOBAL::gmtime = sub(;$) {
   @_ ? CORE::gmtime($_[0])
      : CORE::gmtime(CORE::time() + $OFFSET);
};

sub import {
    my $pkg = shift;
    $pkg->offset(shift);
}

sub offset {
    my $pkg = shift;
    return $OFFSET if !@_;

    my $old_offset = $OFFSET;
    $OFFSET = _to_offset(shift);
    return $old_offset;
}

sub reset {
    shift->offset(0);
}

my %mult = (
    s => 1,
    m => 60,
    h => 60*60,
    d => 60*60*24,
    M => 60*60*24*30,
    y => 60*60*24*365,
);

sub _to_offset {
    my $t = shift || return 0;

    if ($t =~ m/^([+-]\d+)([smhdMy]?)$/) {
        $t = $1 * $mult{ $2 || "s" };

    } elsif ($t !~ m/\D/) {
        $t = $t - CORE::time;

    } else {
        croak "Invalid time offset: `$t'";
    }

    return $t;
}

1;

__END__