File Coverage

lib/Algorithm/MasterMind/Test.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 27 27 100.0


line stmt bran cond sub pod time code
1             package Algorithm::MasterMind::Test;
2              
3 2     2   1987 use warnings;
  2         4  
  2         173  
4 2     2   14 use strict;
  2         5  
  2         78  
5 2     2   11 use Carp;
  2         4  
  2         139  
6              
7 2     2   13 use lib qw(../../lib);
  2         3  
  2         16  
8              
9             our $VERSION = sprintf "%d.%03d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/g;
10              
11 2     2   361 use base 'Algorithm::MasterMind';
  2         4  
  2         577  
12              
13             sub initialize {
14 6     6 1 10 my $self = shift;
15 6         12 my $options = shift;
16 6         27 for my $o ( keys %$options ) {
17 11         57 $self->{"_$o"} = $options->{$o};
18             }
19 6         43 $self->{'_test'} = 1;
20             }
21              
22              
23             "some blacks, 0 white"; # Magic true value required at end of module
24              
25             __END__