File Coverage

blib/lib/Mail/ListDetector/Detector/Base.pm
Criterion Covered Total %
statement 13 14 92.8
branch n/a
condition 1 3 33.3
subroutine 3 4 75.0
pod 2 2 100.0
total 19 23 82.6


line stmt bran cond sub pod time code
1             package Mail::ListDetector::Detector::Base;
2              
3 39     39   239 use strict;
  39         79  
  39         1247  
4 39     39   193 use warnings;
  39         72  
  39         4974  
5              
6             sub new {
7 573     573 1 1063 my $proto = shift;
8 573         736 my $data = shift;
9 573   33     2284 my $class = ref($proto) || $proto;
10 573         5041 my $self = {};
11 573         1298 $self->{'data'} = $data;
12              
13 573         1410 bless ($self, $class);
14 573         4621 return $self;
15             }
16              
17             sub match {
18 0     0 1   die "This method must be implemented by a subclass\n";
19             }
20              
21             1;
22              
23             __END__