| line |
true |
false |
branch |
|
35
|
0 |
1 |
unless my $filename = shift() |
|
37
|
0 |
1 |
unless CORE::open my $fh, '<', $filename |
|
46
|
0 |
1 |
unless __readsectors($fh, $buffer, 16) |
|
72
|
1 |
1 |
if (@parts) { } |
|
74
|
0 |
4 |
unless ($treepos = $$treepos[1]{uc $_}) |
|
91
|
0 |
2 |
unless @_ == 3 |
|
92
|
0 |
2 |
unless $_[1] eq '<' |
|
93
|
0 |
2 |
unless my(@stats) = $this->stat($_[2]) |
|
94
|
0 |
2 |
if S_ISDIR($stats[2]) |
|
96
|
2 |
0 |
if tie *{$_[0];}, 'VirtualFS::ISO9660::FileHandle', $$this[0], $stats[1], $this |
|
106
|
2 |
0 |
unless $filename =~ m[^/] |
|
107
|
0 |
2 |
if ($filename =~ s/;(.*)//) |
|
110
|
2 |
0 |
unless (exists $$this[4]{$filename}) |
|
112
|
0 |
2 |
unless $this->opendir(my $dirh, $path) |
|
114
|
0 |
2 |
unless exists $$this[4]{$filename} |
|
117
|
2 |
0 |
unless (defined $version) |
|
118
|
0 |
2 |
unless defined $$ref[$version] |
|
142
|
1 |
0 |
if (@_ == 0) { } |
|
151
|
0 |
0 |
wantarray ? : |
|
162
|
1 |
2 |
if (@_ == 0) { } |
|
171
|
2 |
0 |
wantarray ? : |
|
184
|
0 |
0 |
unless @_ >= 2 |
|
187
|
0 |
0 |
unless $this->open(my $infh, '<', $from) |
|
207
|
0 |
2 |
unless (seek $_[0], $_[2] * 2048, 0) |
|
209
|
0 |
2 |
unless ($ret == $count * 2048) |
|
217
|
5 |
0 |
ref $_[0] ? : |
|
222
|
5 |
0 |
if (ref $_[0]) |
|
224
|
5 |
0 |
if ref $_[1] |
|
253
|
1 |
4 |
unless (@hrefs) |
|
276
|
0 |
8 |
ref $_[0] ? : |
|
283
|
0 |
8 |
if (ref $_[0]) |
|
304
|
0 |
1 |
if ($h{'type'} == 0) { } |
|
|
1 |
0 |
elsif ($h{'type'} == 1) { } |
|
|
0 |
0 |
elsif ($h{'type'} == 2) { } |
|
|
0 |
0 |
elsif ($h{'type'} == 3) { } |
|
368
|
0 |
0 |
unless @x |
|
381
|
0 |
2 |
if ($$ref{'flags'} & 2) { } |
|
417
|
0 |
2 |
unless open my $fh, '<&', $fromfh |
|
423
|
1 |
1 |
if $name ne '' |
|
437
|
2 |
0 |
if (wantarray) { } |
|
460
|
0 |
9 |
if defined $_[0][5] and $_[0][5] <= $_[0][2] |
|
462
|
0 |
9 |
unless read($_[0][0], $len, 1) == 1 |
|
464
|
2 |
7 |
unless $len |
|
467
|
0 |
7 |
unless seek $_[0][0], -1, 1 |
|
469
|
0 |
7 |
unless read($_[0][0], $buf, $len) == $len |
|
475
|
2 |
5 |
if ($$info{'name'} =~ s/;(.*)//) { } |
|
483
|
2 |
5 |
if ($$info{'name'} eq "\000") { } |
|
|
2 |
3 |
elsif ($$info{'name'} eq "\cA") { } |
|
486
|
1 |
1 |
if ($_[0][4] eq '') |
|
511
|
0 |
2 |
unless open my $fh, '<&', $fromfh |
|
512
|
0 |
2 |
unless seek $fh, $$info{'location'} * 2048, 0 |
|
531
|
0 |
0 |
unless $where >= $$this[3] and $where < $$this[4] |
|
532
|
0 |
0 |
unless read($$this[0], $ret, 1) == 1 |
|
540
|
2 |
2 |
unless defined $ofs |
|
543
|
4 |
0 |
if ($len > $$this[4] - tell($$this[0])) |
|
545
|
2 |
2 |
unless $len > 0 |
|
567
|
0 |
2 |
if $len == 0 |
|
568
|
2 |
0 |
if $rlen == 0 |
|
577
|
0 |
2 |
if (wantarray) |