| line |
true |
false |
branch |
|
56
|
0 |
0 |
wantarray ? :
|
|
63
|
0 |
0 |
$1 ? :
|
|
76
|
0 |
0 |
unless opendir my $dh, $dir
|
|
79
|
0 |
0 |
if /$re/ and not $_ =~ /^\.\.?$/
|
|
82
|
0 |
0 |
wantarray ? :
|
|
89
|
10 |
0 |
unless $was_open
|
|
91
|
2 |
8 |
wantarray ? :
|
|
102
|
0 |
0 |
wantarray ? :
|
|
121
|
0 |
56 |
unless $src
|
|
122
|
0 |
56 |
unless $mode and exists $ZMODES{$mode}
|
|
127
|
0 |
56 |
if ($src and not ref $src and $src eq '-')
|
|
128
|
0 |
0 |
if ($mode eq '<') { }
|
|
|
0 |
0 |
elsif ($mode eq '>') { }
|
|
135
|
13 |
43 |
if (is_fh($src)) { }
|
|
|
40 |
3 |
elsif (not ref $src) { }
|
|
140
|
4 |
36 |
if ($src =~ /.+?\.b?gz$/i or $mode eq '<' and -e $src and gz_type($src)) { }
|
|
|
0 |
36 |
elsif ($src =~ /.+?\.bz2$/i) { }
|
|
141
|
2 |
2 |
if ($EXTERNAL_GZ) { }
|
|
144
|
0 |
2 |
unless $fh = 'IO::Zlib'->new($src, $ZMODES{$mode})
|
|
147
|
0 |
0 |
if ($EXTERNAL_BZIP2) { }
|
|
150
|
0 |
0 |
unless $fh = 'IO::Uncompress::Bunzip2'->new($src)
|
|
153
|
0 |
36 |
unless open $fh, $mode, $src
|
|
158
|
0 |
3 |
unless open $fh, $mode, $src
|
|
161
|
52 |
3 |
if (wantarray) { }
|
|
|
0 |
3 |
elsif ($fh_was_open) { }
|
|
171
|
0 |
5 |
unless $gz and -x $gz
|
|
172
|
0 |
5 |
if ($mode eq '<') { }
|
|
|
5 |
0 |
elsif ($mode eq '>') { }
|
|
173
|
0 |
0 |
unless open my $fh, '-|', $gz, '-c', '-d', $f
|
|
177
|
0 |
5 |
unless pipe $r, $w
|
|
180
|
0 |
5 |
unless defined $pid
|
|
181
|
3 |
2 |
if ($pid) { }
|
|
186
|
0 |
2 |
unless open STDIN, '<&', $r
|
|
187
|
0 |
2 |
unless $w->close
|
|
188
|
0 |
2 |
unless open STDOUT, '>', $f
|
|
199
|
0 |
5 |
unless open my $fh, '<', $f
|
|
204
|
0 |
5 |
unless $nread >= 4
|
|
210
|
4 |
13 |
if unpack('H' . $size, $buffer) eq unpack('H' . $size, $magic->[0])
|
|
218
|
0 |
0 |
unless -f $a
|
|
220
|
0 |
0 |
if not -e $b or -e $b and (stat $a)[9] > (stat $b)[9]
|
|
232
|
23 |
3 |
if $reftype and $reftype eq 'IO' || $reftype eq 'GLOB' && *{$fh;}{'IO'} || &Scalar::Util::blessed($fh) && $fh->isa('IO::Handle')
|
|
242
|
0 |
32 |
unless open my $fh, '<', $f
|
|
247
|
1 |
31 |
unless $nread == $size
|
|
249
|
1 |
30 |
if (unpack('H' . $size, $buffer) eq unpack('H' . $size, $magic->[0])) { }
|
|
|
1 |
29 |
elsif (unpack('H2', $buffer) eq unpack('H2', $magic->[0])) { }
|