File Coverage

blib/lib/Image/Compare/THRESHOLD.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	31	31	100.0

package Image::Compare::THRESHOLD;

use warnings;
use strict;

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

sub setup {
	my $self = shift;
	$self->SUPER::setup(@_);
	# Default to true, we will return 0 if we run into trouble later.
	$self->{result} = 1;
}

sub accumulate {
	my $self = shift;
	my $diff = $self->color_distance(@_);
	if ($diff > $self->{args}) {
		$self->{result} = 0;
		return 1;
	}
	return undef;
}

sub get_result {
	my $self = shift;
	return $self->{result};
}

1;

__END__