| blib/lib/Algorithm/NaiveBayes.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 20 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 3 | 3 | if ($package eq 'Algorithm::NaiveBayes') |
| 30 | 0 | 4 | if ($$self{'model_class'} || '') eq 'Algorithm::NaiveBayes' |
| 32 | 3 | 1 | unless ($package->can('new')) |
| 34 | 0 | 3 | if $@ |
| 46 | 0 | 1 | unless my $self = Storable::retrieve($path) |
| 55 | 0 | 410 | unless exists $params{$_} |
| 58 | 202 | 3 | unless ref $_ |
| 73 | 1 | 2 | if $self->purge |
| 83 | 0 | 4 | if @_ |
| 89 | 0 | 3 | unless my $newattrs = $params{'attributes'} |