File Coverage

blib/lib/Image/Compare/EXACT.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition 1 3 33.3
subroutine 4 4 100.0
pod 1 1 100.0
total 21 23 91.3


line stmt bran cond sub pod time code
1             package Image::Compare::EXACT;
2              
3 8     8   25 use warnings;
  8         8  
  8         192  
4 8     8   20 use strict;
  8         8  
  8         130  
5              
6 8     8   20 use base qw/Image::Compare::THRESHOLD/;
  8         6  
  8         2573  
7              
8             sub new {
9 2     2 1 3 my $proto = shift;
10 2   33     6 my $class = ref($proto) || $proto;
11 2         13 my $self = Image::Compare::THRESHOLD->new(@_);
12 2         4 $self->{args} = 0;
13 2         3 bless($self, $class);
14 2         5 return $self;
15             }
16              
17             1;
18              
19             __END__