File Coverage

blib/lib/Test/Time.pm

Criterion	Covered	Total	%
statement	28	29	96.5
branch	9	10	90.0
condition	3	5	60.0
subroutine	9	9	100.0
pod	0	1	0.0
total	49	54	90.7

package Test::Time;
use strict;
use warnings;

use Test::More;

our $VERSION = '0.08';
our $time = CORE::time();

my $pkg = __PACKAGE__;
my $in_effect = 1;

sub in_effect {
	$in_effect;
}

sub import {
	my ($class, %opts) = @_;
	$in_effect = 1;
	$time = $opts{time} if defined $opts{time};

	*CORE::GLOBAL::time = sub() {
		if (in_effect) {
			$time;
		} else {
			CORE::time();
		}
	};

	*CORE::GLOBAL::sleep = sub(;$) {
		if (in_effect) {
			my $sleep = shift || 1;
			$time += $sleep;
			note "sleep $sleep";
		} else {
			CORE::sleep(shift);
		}
	};

	*CORE::GLOBAL::localtime = sub(;$) {
		my $arg = shift;
		if (in_effect) {
			$arg ||= $time;
		}
		return defined $arg ? CORE::localtime($arg) : CORE::localtime();
	};
};

sub unimport {
	$in_effect = 0;
}

1;
__END__