Branch Coverage

blib/lib/Games/Go/AGA/DataObjects/Tournament.pm
Criterion Covered Total %
branch 9 62 14.5


line true false branch
72 11 0 if not $self->suppress_changes
78 0 1 if ($round_num <= 0) { }
0 2 elsif ($round_num > 1 and not defined $self->{'rounds'}[$round_num - 1]) { }
86 0 1 if (defined $rm_round and not $replace)
106 0 0 unless defined $round_num
110 0 0 unless $round
115 0 0 wantarray ? :
127 0 8 unless (defined $self->{'rounds'}[$round_num])
146 0 0 wantarray ? :
160 0 0 if $game->white->id eq $id0 or $game->black->id eq $id0
161 0 0 if $game->white->id eq $id1 or $game->black->id eq $id1
163 0 0 unless @games
164 0 0 if (@games > 2)
168 0 0 if ($games[0]->white->id eq $id0) { }
0 0 elsif ($games[0]->white->id eq $id1) { }
170 0 0 if ($games[0]->black->id eq $id0) { }
0 0 elsif ($games[0]->black->id eq $id1) { }
173 0 0 if (@games == 2 and &refaddr($games[0]) != &refaddr($games[1]))
174 0 0 if ($games[1]->white->id eq $id0) { }
0 0 elsif ($games[1]->white->id eq $id1) { }
176 0 0 if ($games[1]->black->id eq $id0) { }
0 0 elsif ($games[1]->black->id eq $id1) { }
191 2 6 unless (defined $self->{'player_stats'})
202 0 4 unless (defined $game->winner)
221 0 8 wantarray ? :
234 0 0 unless ($fd)
235 0 0 unless $fd = 'IO::String'->new
257 0 0 if length $player->full_name > $name_width
274 0 0 unless defined $round
276 0 0 if ($game->winner)
277 0 0 $game->winner->id eq $game->white->id ? :