package Image::Compare::EXACT;
use warnings;
use strict;
use base qw/Image::Compare::THRESHOLD/;
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = Image::Compare::THRESHOLD->new(@_);
$self->{args} = 0;
bless($self, $class);
return $self;
}
1;
__END__
=head1 NAME
Image::Compare::EXACT - Compare two images for exact equivalence.
=head1 OVERVIEW
See the docs for L<Image::Compare> for details on how to use this
module. Further documentation is meant for those modifying or subclassing
this comparator. See the documentation in L<Image::Compare::Comparator> for
general information about making your own comparator subclasses.
=head1 METHODS
=over 4
=item new(\@pixel1, \@pixel2, $x, $y)
Override's L<Image::Compare:THRESHOLD>'s constructor and forces the
threshold to be 0. Otherwise, this comparator is exactly the same as
that.
=back
=head1 AUTHOR
Copyright 2008 Avi Finkel <F<avi@finkel.org>>
This package is free software and is provided "as is" without express
or implied warranty. It may be used, redistributed and/or modified
under the terms of the Perl Artistic License (see
http://www.perl.com/perl/misc/Artistic.html)
=cut