Branch Coverage

blib/lib/Games/Cards/ShuffleTrack.pm
Criterion Covered Total %
branch 113 114 99.1


line true false branch
174 1 40 if (ref $order eq 'ARRAY') { }
256 2 14 if ($self->size != @original)
260 3 11 unless $self->size
263 1 10 if ($self->orientation ne 'down')
270 5 260 unless $deck[$_] eq $original[$_]
325 14 4 $self->orientation eq 'down' ? :
380 3 37 if (wantarray and @_ > 1) { }
392 5 1 if (exists $expressions->{$param}) { }
408 36 6 exists $expressions->{$param} ? :
415 262 1594 if (&any(sub { $card =~ /$_/; } , @expressions))
444 2 5 unless (defined $times)
448 2 5 if $times < 1
452 1 4 $times > 1 ? :
487 9 9 if (&looks_like_number($param)) { }
495 7 8 unless @number_of_cards
499 1 7 unless $number_of_cards > 0
505 2 5 if ($where_to_drop eq 'drop-top') { }
538 1 3 $times > 1 ? :
553 29 90 if (@deck < $max)
554 6 113 if (@deck < $min)
654 52 8 $faro eq 'in' ? :
717 0 25 if (defined $position and &looks_like_number($position) and abs $position > $self->deck_size)
774 12 9 if (defined $_[0] and ref $_[0] eq 'Games::Cards::ShuffleTrack') { }
788 2 19 if (not defined $lower_limit) { }
11 8 elsif (not defined $upper_limit) { }
869 1 2 $times > 1 ? :
940 398 64 &looks_like_number($card) ? :
946 35 389 wantarray ? :
953 396 2 if ($card) { }
954 368 28 if ($card > 0)
955 3 393 $card > $self->deck_size - 1 ? :
970 59 5 $position ? :
991 1 1 if ($position == 1) { }
1017 1 1 if ($position > $self->deck_size)
1094 1 6 if (not defined $position) { }
1 5 elsif ($position > $self->deck_size) { }
2 3 elsif ($position < 0) { }
1148 2 17 unless ($self->size)
1156 11 6 $params->{'_has_places'} ? :
1160 14 3 if ($params->{'_has_options'})
1162 13 1 if (exists $shortcuts->{$param})
1169 11 6 if (defined $destination) { }
1193 68 7 if ($position > 0)
1228 4 69 if (_is_shortcut($position))
1254 52 5 defined $upper_limit ? :
1280 6 1 if (@_) { }
1282 4 3 if (exists $expressions->{$param}) { }
1329 2 5 $has_destination ? :
1334 4 3 if (defined $lower_limit) { }
1336 2 2 defined $upper_limit ? :
1342 1 2 $self->size < 5 ? :
1350 2 5 $has_destination ? :
1361 2 4 $limit < 0 ? :
1375 6 27 if (&looks_like_number($param)) { }
13 14 elsif (ref $param eq 'Games::Cards::ShuffleTrack') { }
1407 8 26 unless (defined $position)
1411 11 23 if (&any(sub { $_ eq $position; } , keys %$cut_limits))