File Coverage

blib/lib/Time/Random.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	12	12	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	38	38	100.0

package Time::Random;
use 5.006; use strict; use warnings; our $VERSION = '0.06';
use Time::Piece;
use base 'Import::Export';
our %EX = (
	time_random => [qw/all/],
);

sub time_random {
	my %args = scalar @_ == 1 ? %{ $_[0] } : @_;
	$args{$_} = $args{$_}
		? $args{strptime}
			? Time::Piece->strptime($args{$_}, $args{strptime})->epoch
			: ref $args{$_}
				? $args{$_}->epoch()
				: $args{$_}
		: $_ eq 'to' ? time : ($args{to} - int(rand(86400)))
	foreach qw/to from/;
	$args{time} = gmtime($args{to} - int(rand($args{to} - $args{from})));
	$args{strftime} ? $args{time}->strftime($args{strftime}) : $args{time};
}

1;

__END__