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

package FLAT::DFA::Minimal;

use strict;
use warnings;
use parent qw(FLAT::DFA);
use Storable qw(dclone);

sub new {
    my $pkg  = shift;
    my $self = $pkg->SUPER::new(@_);
    $self->{EQUIVALENCE_CLASSES} = [];
    return $self;
}

sub get_equivalence_classes {
    my $self = shift;
    return $self->{EQUIVALENCE_CLASSES};
}

sub set_equivalence_classes {
    my $self      = shift;
    my $e_classes = shift;
    die qq{Must be an array reference\n} if ref $e_classes ne q{ARRAY};
    $self->{EQUIVALENCE_CLASSES} = $e_classes;
    return $self->{EQUIVALENCE_CLASSES};
}

1;

__END__