Branch Coverage

blib/lib/Games/Tournament/Swiss.pm
Criterion Covered Total %
branch 46 82 56.1


line true false branch
12 24 2 @Games::Tournament::Swiss::Config::roles ? :
78 1 77 if (&all(sub { $_->pairingNumber; } , @players))
107 1 124 if ($p == 0)
163 60 60 if $games{$id}
165 0 60 if $round < $player->firstround
167 0 60 unless $opponentId
170 0 60 unless $opponentId eq 'Bye' or $opponentId eq 'Unpaired' or $opponentsOpponent eq $id
176 0 60 if ($opponentId eq 'Unpaired') { }
0 60 elsif ($opponentId eq 'Bye') { }
177 0 0 unless $player and $role eq 'Unpaired'
183 0 0 unless $player and $role eq 'Bye'
187 0 60 unless $player and $opponent and $role and $opponentRole
195 0 60 if $opponentId and defined $opponentRole and $role eq $opponentRole
199 0 60 if ($opponentId eq 'Bye') { }
209 60 0 unless ($opponentId eq 'Bye')
239 0 339 unless $round =~ /^\d+$/
256 290 358 ref $game->result eq 'HASH' ? :
265 0 648 unless $play->{$round}{$id}
269 624 24 unless $score and $score eq 'Bye' || $score eq 'Forfeit'
295 1 139 unless $_->score
307 0 60 unless $orderings[$b]{'higherscore'} <=> $orderings[$a]{'higherscore'} or $orderings[$b]{'totalscore'} <=> $orderings[$a]{'totalscore'}
332 0 0 unless $entrant and $entrant->isa('Games::Tournament::Contestant::Swiss')
376 0 456 if &any(sub { $id eq $_->id; } , @$absentees)
377 401 55 defined $player->score ? :
447 0 0 unless exists $dupes->{$id1}{$id2} or exists $colorbar->{$id1}{$id2}
476 0 1312 unless $player
479 1308 4 if ($game and $game->can('myRole')) { }
4 0 elsif ($player->firstround > $round or &any(sub { $id eq $_; } , @absenteeids)) { }
480 0 1308 if $game->result and $game->result eq 'Bye'
484 0 1308 unless &any(sub { $_ eq $role; } , ('White', 'Black'), 'Bye')
486 0 868 if $game->result and exists $game->result->{$role} and $game->result->{$role} eq 'Forfeit'
487 1270 38 if (&any(sub { $role eq $_; } , ('White', 'Black')))
518 241 2118 if $players->[$player]->preference->role and $players->[$_]->preference->role and $players->[$player]->preference->role eq $players->[$_]->preference->role and $players->[$player]->preference->strength eq 'Absolute' and $players->[$player]->preference->strength eq $players->[$_]->preference->strength
554 1116 4 if ($game and $game->can('myRole')) { }
4 0 elsif ($player->firstround > $round or &any(sub { $id eq $_; } , @absenteeids)) { }
556 0 1116 if not $player or $@
559 38 1078 if ($role eq 'Bye')
591 0 0 if $color
592 0 0 if $round
624 0 0 if (defined $rounds) { }
0 0 elsif ($self->{'rounds'}) { }