Branch Coverage

blib/lib/Games/Go/SGF.pm
Criterion Covered Total %
branch 0 72 0.0


line true false branch
30 0 0 if (exists $nodehash{'tags'}) { }
31 0 0 unless ($nodehash{'tags'} =~ /,$ident,/)
38 0 0 if (exists $nodehash{$ident}) { }
52 0 0 if (exists $onersfound{$ident} and $oners =~ /,$ident,/)
60 0 0 if (exists $duplicates{$ident} and $singletons =~ /,$ident,/)
67 0 0 if (grep exists($duplicates{$_}), ('B', 'W') and $alones =~ /,$ident,/)
74 0 0 if (grep exists($duplicates{$_}), ('B', 'W') and $setup =~ /,$ident,/)
81 0 0 if (grep exists($duplicates{$_}), ('AB', 'AW', 'AE') and $move =~ /,$ident,/)
143 0 0 unless my $parser = 'Parse::RecDescent'->new($grammar)
144 0 0 unless my $fh = 'IO::File'->new($file, '<')
146 0 0 unless $fh->close
148 0 0 unless defined $a
158 0 0 if (ref $$a[$_] eq 'Games::Go::SGF::Variation') { }
172 0 0 if ($_ eq 'lite')
178 0 0 if ($_ eq 'full')
188 0 0 if $value
196 0 0 if $value
202 0 0 if $value
208 0 0 if $value
214 0 0 if $value
220 0 0 if (exists $$self[0]{$tag})
230 0 0 unless exists $$self[0]{$tag}
273 0 0 if (ref $node eq 'Games::Go::SGF::Node') { }
274 0 0 unless $startvar
276 0 0 if ($node->tags)
280 0 0 if ($property) { }
290 0 0 if (ref $node eq 'Games::Go::SGF::Variation')
299 0 0 unless my $type = ref $self
302 0 0 if $value
323 0 0 unless $$node{'B'}
329 0 0 if (exists $$node{'B'}) { }
331 0 0 if (exists $$node{'W'}) { }
350 0 0 if (exists $$node{$tag})
360 0 0 if $value
366 0 0 if (exists $$node{'tags'}) { }
367 0 0 unless exists $$node{$tag}