| line |
true |
false |
branch |
| 16 |
0 |
23 |
unless defined $file |
| 23 |
0 |
23 |
if ($file =~ /\.bz2$/i) { } |
| 25 |
0 |
0 |
unless ($$me{'UNGZIPPRG'} = $$CPAN::Config{'bzip2'}) |
| 27 |
0 |
0 |
if ($CPAN::META->has_inst('File::Which')) |
| 30 |
0 |
0 |
if ($bzip2) { } |
| 50 |
0 |
0 |
if ($CPAN::META->has_inst('Compress::Zlib')) { } |
| 52 |
0 |
0 |
unless $fhw = 'FileHandle'->new($read) |
| 55 |
0 |
0 |
unless my $gz = Compress::Zlib::gzopen($write, 'wb') |
| 72 |
0 |
0 |
if ($CPAN::META->has_inst('Compress::Zlib')) { } |
| 74 |
0 |
0 |
unless $fhw = 'FileHandle'->new(">$write") |
| 76 |
0 |
0 |
unless my $gz = Compress::Zlib::gzopen($read, 'rb') |
| 80 |
0 |
0 |
if $gz->gzerror != Compress::Zlib::Z_STREAM_END() |
| 94 |
6 |
22 |
if exists $$self{'GTEST'} |
| 95 |
0 |
22 |
unless my $read = $$self{'FILE'} |
| 99 |
22 |
0 |
if ($CPAN::META->has_inst('Compress::Zlib')) { } |
| 102 |
0 |
22 |
unless my $gz = Compress::Zlib::gzopen($read, 'rb') |
| 112 |
10 |
12 |
if ($len == -s $read) |
| 114 |
0 |
10 |
if $CPAN::DEBUG |
| 117 |
0 |
22 |
if $CPAN::DEBUG |
| 131 |
10 |
6 |
if (not $self->gtest) { } |
| |
6 |
0 |
elsif ($CPAN::META->has_inst('Compress::Zlib')) { } |
| 133 |
0 |
10 |
unless my $fh = 'FileHandle'->new($file) |
| 137 |
0 |
6 |
unless my $gz = Compress::Zlib::gzopen($file, 'rb') |
| 143 |
0 |
0 |
unless my $fh = 'FileHandle'->new($pipe) |
| 153 |
0 |
306 |
if (exists $$self{'GZ'}) { } |
| 157 |
0 |
0 |
if $bytesread <= 0 |
| 168 |
0 |
0 |
if defined $offset |
| 169 |
0 |
0 |
if (exists $$self{'GZ'}) { } |
| 182 |
6 |
17 |
if (exists $$self{'GZ'}) { } |
| 184 |
6 |
0 |
if defined $gz |
| 188 |
10 |
7 |
if defined $fh |
| 199 |
0 |
6 |
if ($BUGHUNTING) { } |
| |
6 |
0 |
elsif ('MM'->maybe_command($$self{'UNGZIPPRG'}) and 'MM'->maybe_command($$CPAN::Config{'tar'})) { } |
| |
0 |
0 |
elsif ($CPAN::META->has_inst('Archive::Tar') and $CPAN::META->has_inst('Compress::Zlib')) { } |
| 218 |
6 |
0 |
if ($prefer == 1) { } |
| |
0 |
0 |
elsif ($prefer == 2) { } |
| 222 |
6 |
0 |
if ($is_compressed) { } |
| 229 |
0 |
6 |
if (system($system) != 0) { } |
| 232 |
0 |
0 |
if ($is_compressed) |
| 236 |
0 |
0 |
if ($ct->gunzip($ungzf)) { } |
| 245 |
0 |
0 |
if (system($system) == 0) { } |
| 255 |
0 |
0 |
unless ($CPAN::META->has_inst('Archive::Tar')) |
| 261 |
0 |
0 |
if ($BUGHUNTING) { } |
| 269 |
0 |
0 |
if ($af =~ m[^(/|\.\./)]) |
| 275 |
0 |
0 |
if $CPAN::Signal |
| 279 |
0 |
0 |
if ($af =~ m[^(/|\.\./)]) |
| 285 |
0 |
0 |
if $CPAN::Signal |
| 287 |
0 |
0 |
unless $tar->extract(@af) |
| 291 |
0 |
0 |
if $^O eq 'MacOS' |
| 301 |
1 |
0 |
if ($CPAN::META->has_inst('Archive::Zip')) { } |
| 306 |
0 |
1 |
if $status != Archive::Zip::AZ_OK() |
| 307 |
0 |
1 |
if $CPAN::DEBUG |
| 311 |
0 |
13 |
if ($af =~ m[^(/|\.\./)]) |
| 316 |
0 |
13 |
if $CPAN::DEBUG |
| 317 |
0 |
13 |
if $status != Archive::Zip::AZ_OK() |
| 319 |
0 |
13 |
if $CPAN::Signal |
| 323 |
0 |
0 |
unless my $unzip = $$CPAN::Config{'unzip'} |