| blib/lib/Chess/PGN/Extract/Stream.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 14 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 0 | 0 | unless defined $pgn_file |
| 21 | 0 | 0 | unless open my $pgn_handle, '<', $pgn_file |
| 39 | 0 | 0 | if eof $handle |
| 41 | 0 | 0 | if (not defined $limit or $limit < 0) { } |
| 0 | 0 | elsif ($limit == 0) { } | |
| 51 | 0 | 0 | if (not $line =~ /^\[Event /) { } |
| 58 | 0 | 0 | unless (--$limit > 0) |