| blib/lib/Ordeal/Model/Evaluator.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 26 | 61.5 |
| line | true | false | branch |
|---|---|---|---|
| 32 | 0 | 2 | unless my $m = delete $self->{'model'} |
| 35 | 2 | 0 | if exists $self->{'random_source'} |
| 42 | 0 | 2 | unless my $ast = delete $args{'ast'} |
| 48 | 0 | 10 | unless my $method = eval { |
| 49 | 0 | 10 | if substr($op, 0, 1) eq '_' |
| 50 | 0 | 10 | if lc $op ne $op |
| 64 | 2 | 2 | unless &blessed($deck) |
| 75 | 14 | 4 | $N ? : |
| 76 | 4 | 6 | ref $_ ? : |
| 112 | 0 | 2 | if &blessed($shuffle) and $shuffle->isa('Ordeal::Model::Shuffle') |
| 121 | 0 | 2 | unless my $s = $self->_eval($s_ast) |
| 129 | 8 | 2 | $max < $_ ? : |
| 142 | 0 | 0 | if $cards[$i] ne $deleted |