Branch Coverage

blib/lib/Games/Tournament.pm
Criterion Covered Total %
branch 45 108 41.6


line true false branch
16 24 6 @Games::Tournament::Swiss::Config::roles ? :
78 0 1762 unless &looks_like_number($round)
80 1744 18 unless $player->firstround
83 0 1762 if $absent and ref $absent eq 'ARRAY'
84 0 1762 if &any(sub { $_ eq $player->id; } , @absentids)
87 0 3524 unless ($player->$required)
92 0 1762 unless (defined $player->$recommended)
112 4770 595 if (&all(sub { defined $_->score; } , @players)) { }
114 0 15932 unless $b->score <=> $a->score or $b->rating <=> $a->rating or $a->title cmp $b->title
122 0 9679 unless $b->rating <=> $a->rating or $a->title cmp $b->title
206 0 0 unless grep {$key eq $_;} @otherroles
208 0 0 if (not @roles) { }
213 0 0 unless @roles == @otherroles
215 0 0 unless $roles[$i] eq $otherroles[$i]
217 0 0 if $test
242 0 41 unless %roundGames
249 126 573 unless $game and $game->can('contestants')
250 68 505 if $other->myOpponent($game) == $player
254 41 0 if wantarray
286 0 0 unless keys %$contestants == 1 and $result->{'Bye'} =~ /Bye/i or $$result{('White', 'Black')[0]} and $$result{('White', 'Black')[1]} and $$result{('White', 'Black')[0]} eq 'Win' && $$result{('White', 'Black')[1]} eq 'Loss' || $$result{('White', 'Black')[0]} eq 'Loss' && $$result{('White', 'Black')[1]} eq 'Win' || $$result{('White', 'Black')[0]} eq 'Draw' && $$result{('White', 'Black')[1]} eq 'Draw'
310 0 0 if exists $games->{$id}{$_}
336 0 0 unless $card and $card->isa('Games::Tournament::Card')
341 0 0 unless $_ eq ('White', 'Black')[0] or $_ eq ('White', 'Black')[1]
0 0 unless grep {$_ eq 'Bye' unless $_ eq ('White', 'Black')[0] or $_ eq ('White', 'Black')[1];} keys %$results
344 0 0 if not $card or $@
347 0 0 unless $result =~ /^(?:Win|Loss|Draw|Bye|Forfeit)/i
350 0 0 if defined $scores
368 50 75 int rand 2 ? :
369 50 75 $evenRole eq ('White', 'Black')[0] ? :
385 71 241 if (defined $play) { }
191 50 elsif ($self->{'play'}) { }
400 1964 10092 if (defined $entrants) { }
9996 96 elsif ($self->{'entrants'}) { }
416 0 1956 if (defined $absentees) { }
0 1956 elsif ($self->{'absentees'}) { }
432 134 1991 if (defined $round) { }
187 1804 elsif ($self->{'round'}) { }
449 0 0 if (defined $rounds) { }
0 0 elsif ($self->{'rounds'}) { }
483 0 0 if (defined $idcheck{$id})
486 0 0 if (defined $namecheck{$name})
511 0 0 if (defined $idcheck{$id})
533 0 0 if (defined $namecheck{$name})
584 0 0 unless @states
589 0 0 unless ($strings and ref $strings eq 'ARRAY')
610 0 133 unless @states
617 108 25 if (defined $tailpos{$state}) { }
25 0 elsif ($report{$state}) { }
648 0 6855 unless $message
652 180 6675 if &any(sub { $_ eq $method; } , @loggable)
669 12460 0 unless (@states)
674 0 0 unless exists $logged{$state}
715 0 0 unless (@states)
724 0 0 unless defined $logged{$state}