| 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 {
do {
die '' if substr($op, 0, 1) eq '_';
die '' if lc $op ne $op;
$self->can($op)
}
}
|
|
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
|