line |
true |
false |
branch |
45
|
0 |
0 |
if -e $infile |
48
|
0 |
0 |
if (not $infile =~ /\.(z[1-9]|dat)$/i) { } |
50
|
0 |
0 |
if -e "$infile.dat" |
51
|
0 |
0 |
if (@files == 0) { } |
|
0 |
0 |
elsif (@files > 1) { } |
74
|
0 |
2 |
unless my $ZFILE = 'IO::File'->new("<$infile") |
80
|
0 |
2 |
unless defined $err |
123
|
0 |
2 |
if ($version < 1 or $version > 8) { } |
|
0 |
4 |
elsif ($version < 3 || $version > 5 and $version != 8) { } |
146
|
0 |
2 |
if ($version <= 3) { } |
166
|
0 |
2 |
if $info{'attribute_bytes'} + $info{'pointer_size'} * 3 + 2 != $info{'object_bytes'} |
171
|
0 |
2 |
if ($version <= 3) { } |
|
2 |
0 |
elsif ($version == 4 or $version == 5) { } |
186
|
0 |
2 |
if ($version >= 6) { } |