Branch Coverage

blib/lib/Chess/FIDE.pm
Criterion Covered Total %
branch 34 60 56.6


line true false branch
38 3 3 if ($param{-'file'} or $param{-'www'}) { }
40 0 3 unless $result
43 0 3 if $ENV{'CHESS_FIDE_VERBOSE'}
52 3 0 if ($param{-'file'}) { }
0 0 elsif ($param{-'www'}) { }
54 3 0 if (defined $fh) { }
55 0 3 if $ENV{'CHESS_FIDE_VERBOSE'}
65 0 0 if $param{-'proxy'}
67 0 0 if $ENV{'CHESS_FIDE_VERBOSE'}
70 0 0 if ($response->is_success) { }
77 0 0 unless my $fh = 'IO::String'->new(\$webcontent)
80 0 0 unless ($status == 0)
87 0 0 unless defined $fh2
98 6 6 if $fide->{'meta'}{'game'}
117 6 150 if ($field =~ /^\D\D\D\d\d$/)
122 144 12 if ($start)
137 4 30009 unless $info->{'name'}
141 26217 3792 if ($info->{'name'} =~ /^(\S.*)\s*\,\s*(\S.*)/) { }
3643 149 elsif ($info->{'name'} =~ /^(\S.*\S)\s+(\S+)$/) { }
152 0 149 if $ENV{'CHESS_FIDE_VERBOSE'}
167 4 340058 if (length $line <= $fide->{'meta'}{$field}[0] - 1)
173 310054 30004 $fide->{'meta'}{$field}[0] ? :
192 3 29997 if ($line =~ /^id/i) { }
0 29997 elsif ($line =~ /Mr., Jonathan Rose/) { }
29997 0 elsif ($line =~ /^\s*\d/) { }
201 29995 2 if ($info{'name'} and $info{'name'} =~ /\S/)
203 29995 0 if $player
207 0 0 if $ENV{'CHESS_FIDE_VERBOSE'}
221 2 19 if ($criteria =~ /^$field /i)
227 0 2 unless $found