| line |
true |
false |
branch |
|
50
|
0 |
0 |
if (defined $file) |
|
53
|
0 |
0 |
unless $self->open($file, -'umod', $args{-'umod'}) |
|
61
|
0 |
0 |
if (@_) |
|
68
|
0 |
0 |
if (@_) |
|
75
|
0 |
0 |
if (@_) |
|
83
|
0 |
0 |
if (@_) |
|
90
|
0 |
0 |
if (@_) |
|
98
|
0 |
0 |
if (@_) |
|
105
|
0 |
0 |
if (@_) |
|
112
|
0 |
0 |
if (@_) |
|
120
|
0 |
0 |
if (@_) |
|
127
|
0 |
0 |
if (@_) |
|
135
|
0 |
0 |
if (@_) |
|
142
|
0 |
0 |
if (@_) |
|
149
|
0 |
0 |
if (defined $file) { } |
|
152
|
0 |
0 |
unless CORE::open FICPGN, "<$file" |
|
184
|
0 |
0 |
if ($continue == 2) |
|
185
|
0 |
0 |
if ($LINE =~ /\[(.*)\]/) { } |
|
|
0 |
0 |
elsif (not $LINE =~ /^$/) { } |
|
|
0 |
0 |
elsif ($GAME == 1) { } |
|
203
|
0 |
0 |
if (eof FICPGN and $continue == 1) |