| line |
true |
false |
branch |
|
17
|
0 |
0 |
unless defined $pgn_file |
|
22
|
0 |
0 |
unless open my $pgn_handle, '<', $pgn_file |
|
40
|
0 |
0 |
if $handle->eof |
|
42
|
0 |
0 |
unless (defined $limit) |
|
49
|
0 |
0 |
if ($limit < 0) { } |
|
|
0 |
0 |
elsif ($limit == 0) { } |
|
81
|
0 |
0 |
if $_[0]->eof |
|
86
|
0 |
0 |
if $line =~ /$blank/ |
|
88
|
0 |
0 |
if ($_[1] == $start) { } |
|
|
0 |
0 |
elsif ($_[1] == $expect_tag) { } |
|
|
0 |
0 |
elsif ($_[1] == $expect_moves) { } |
|
90
|
0 |
0 |
if ($line =~ /$tag_begin/) { } |
|
102
|
0 |
0 |
if ($line =~ /$tag_begin/) { } |
|
115
|
0 |
0 |
if ($line =~ /$tag_begin/) { } |
|
132
|
0 |
0 |
if $_[1] =~ /$tag/ |
|
133
|
0 |
0 |
if ($_[0]->eof) |