File Coverage

blib/lib/FLAT/DFA/Minimal.pm
Criterion Covered Total %
statement 23 23 100.0
branch 1 2 50.0
condition n/a
subroutine 7 7 100.0
pod 2 3 66.6
total 33 35 94.2


line stmt bran cond sub pod time code
1             package FLAT::DFA::Minimal;
2              
3 6     6   38 use strict;
  6         10  
  6         162  
4 6     6   26 use warnings;
  6         11  
  6         178  
5 6     6   39 use parent qw(FLAT::DFA);
  6         11  
  6         209  
6 6     6   395 use Storable qw(dclone);
  6         11  
  6         1412  
7              
8             sub new {
9 137     137 0 302 my $pkg = shift;
10 137         716 my $self = $pkg->SUPER::new(@_);
11 137         316 $self->{EQUIVALENCE_CLASSES} = [];
12 137         284 return $self;
13             }
14              
15             sub get_equivalence_classes {
16 5     5 1 5828 my $self = shift;
17 5         27 return $self->{EQUIVALENCE_CLASSES};
18             }
19              
20             sub set_equivalence_classes {
21 137     137 1 285 my $self = shift;
22 137         269 my $e_classes = shift;
23 137 50       458 die qq{Must be an array reference\n} if ref $e_classes ne q{ARRAY};
24 137         353 $self->{EQUIVALENCE_CLASSES} = $e_classes;
25 137         275 return $self->{EQUIVALENCE_CLASSES};
26             }
27              
28             1;
29              
30             __END__