File Coverage

blib/lib/Image/Compare/THRESHOLD_COUNT.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition	2	2	100.0
subroutine	6	6	100.0
pod	3	3	100.0
total	30	30	100.0

package Image::Compare::THRESHOLD_COUNT;

use warnings;
use strict;

use base qw/Image::Compare::THRESHOLD/;

sub setup {
	my $self = shift;
	$self->{count} = 0;
}

sub accumulate {
	my $self = shift;
	# The superclass returns 0 if it's over the threshold and undef otherwise.
	# Not really optimal return values, but we're kind of cheating by looking
	# at it in this context, so hey.
	if (defined($self->SUPER::accumulate(@_))) {
		$self->{count}++;
	}
	# Always continue.
	return undef;
}

sub get_result {
	my $self = shift;
	return $self->{count} || 0;
}

1;

__END__