File Coverage

blib/lib/Test/Spec/RMock/ExactlyConstraint.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch	4	4	100.0
condition			n/a
subroutine	3	3	100.0
pod	0	3	0.0
total	13	16	81.2

package Test::Spec::RMock::ExactlyConstraint;

sub new {
    my ($class, $target) = @_;
    bless { _target => $target }, $class;
}

sub call {
    my ($self, $times_called) = @_;
    $times_called == $self->{_target};
}

sub error_message {
    my ($self, $mock_name, $name, $times_called) = @_;
    sprintf "Expected '%s' to be called %d %s on '%s', but it was called %d %s.",
        $name,
            $self->{_target},
                ($self->{_target} == 1 ? 'time' : 'times'),
                    $mock_name,
                        $times_called,
                            ($times_called == 1 ? 'time' : 'times');
}

1;

__END__