File Coverage

blib/lib/Test/Spy/Interface.pm

Criterion	Covered	Total	%
statement	43	43	100.0
branch	4	4	100.0
condition	1	2	50.0
subroutine	15	15	100.0
pod	0	9	0.0
total	63	73	86.3

$Test::Spy::Interface::VERSION = '0.003';
use v5.10;
use strict;
use warnings;

use Moo::Role;
use Mooish::AttributeBuilder;

requires qw(
	call_history
	_clear_call_history
);

has field '_call_iterator' => (
	writer => 1,
	clearer => 1,
	predicate => 1,
	lazy => sub { 0 },
);

{
	my ($self, $count) = @_;
	$count //= 1;

	$self->_set_call_iterator($self->_call_iterator + $count);

	return;
}

{
	my ($self) = @_;

	return scalar @{$self->call_history};
}

{
	my ($self) = @_;

	return $self->call_history->[$self->_call_iterator];
}

{
	my ($self) = @_;

	$self->_set_call_iterator(0);
	return $self->called_with;
}

{
	my ($self) = @_;

	$self->_increment_call_iterator
		if $self->_has_call_iterator;

	return $self->called_with;
}

{
	my ($self) = @_;

	$self->_set_call_iterator($self->called_times - 1);
	return $self->called_with;
}

{
	my ($self, $times) = @_;

	return $self->called_times == $times if defined $times;
	return $self->called_times > 0;
}

{
	my ($self) = @_;

	return $self->was_called(0);
}

{
	my ($self) = @_;

	return $self->was_called(1);
}

{
	my ($self) = @_;

	$self->_clear_call_history;
	$self->_clear_call_iterator;

	return $self;
}

1;