File Coverage

blib/lib/Sim/Clock.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	5	6	83.3
condition			n/a
subroutine	7	7	100.0
pod	4	4	100.0
total	36	37	97.3

package Sim::Clock;

use Carp qw(croak carp);
use strict;
use warnings;

our $VERSION = '0.03';

sub new ($$) {
	my $class = ref $_[0] ? ref shift : shift;
	my $now = @_ ? shift : 0;
	bless {
		now => $now,
	}, $class;
}

sub now ($) {
	$_[0]->{now};
}

sub push_to ($$) {
    my ($self, $time) = @_;
	if ($time < $self->now) {
        carp "error: Can't push your time back, sir";
        return 0;
    }
    $self->{now} = $time;
    return 1;
}

sub reset ($) {
    $_[0]->{now} = 0;
}

1;
__END__