| line |
true |
false |
branch |
|
38
|
0 |
0 |
if exists $$self{'data'} |
|
51
|
0 |
0 |
unless open my $fh, '<:perlio', $path |
|
61
|
0 |
0 |
if $data =~ /^[ #\@\*\$\.\+\015\012\-_]+$/u |
|
63
|
0 |
0 |
if $data =~ /^[ #\@\*\$\.\+\015\012\-_|1-9]+$/u |
|
66
|
0 |
0 |
if defined $a and defined $b |
|
78
|
0 |
0 |
if (@_ > 1) |
|
83
|
0 |
0 |
if ($format eq 'text' or $format eq 'rle') { } |
|
|
0 |
0 |
elsif ($format eq 'binpack') { } |
|
107
|
0 |
0 |
if $extra |
|
132
|
0 |
0 |
unless $_[1] >= 0 |
|
148
|
0 |
0 |
unless /^[^\n]+/u |
|
192
|
0 |
0 |
unless $data =~ /[\@\+]/u |
|
244
|
0 |
0 |
unless $$self{'data'} =~ /[\@\+]/u |
|
328
|
0 |
0 |
unless reverse(substr($line, 0, $x + 1)) =~ /\x00+/u |
|
334
|
0 |
0 |
unless substr($line, $x) =~ /^\x00+/u |
|
339
|
0 |
0 |
if $y > 0 |
|
340
|
0 |
0 |
if $y < $h - 1 |
|
381
|
0 |
0 |
if ($md5 lt $best_md5) |
|
409
|
0 |
0 |
unless open my $fh, '<:crlf', $_[0] |
|
424
|
0 |
0 |
unless /^##+\n/u |
|
430
|
0 |
0 |
unless tr/+@// |