| line |
true |
false |
branch |
|
108
|
0 |
9 |
$^O =~ /MSWin/ ? : |
|
110
|
1 |
8 |
if ($ENV{'PERL_ARCHIVE_SEVENZIP_BIN'}) { } |
|
116
|
0 |
8 |
if ($^O =~ /MSWin/i) |
|
123
|
0 |
0 |
if ($^O eq "MSWin32") |
|
124
|
0 |
0 |
unless -e file("$dir", "7z.exe") |
|
131
|
8 |
1 |
unless ($found) |
|
134
|
9 |
0 |
defined $found ? : |
|
154
|
1 |
12 |
if (@_ == 2) { } |
|
160
|
0 |
13 |
if ($options{'find'}) |
|
166
|
18 |
47 |
unless defined $options{$_} |
|
176
|
45 |
0 |
unless defined $options{$_} |
|
178
|
0 |
9 |
ref $self_or_class ? : |
|
189
|
0 |
9 |
if (not $@) |
|
192
|
0 |
0 |
if (@output >= 3) { } |
|
196
|
0 |
0 |
unless $output[1] =~ /^7-Zip\s+.*?\b(\d+\.\d+)\s+(?:\(x64\))?(?:\s*:\s*)?Copyright/ |
|
251
|
0 |
0 |
unless (grep {defined $_;} $options{'archivename'}, $self->{'archivename'}) |
|
281
|
0 |
0 |
if ($output[0] =~ /^----------\s*$/) { } |
|
292
|
0 |
0 |
if ($line =~ /^([\w ]+) =(?: (.*?)|)\s*$/) { } |
|
|
0 |
0 |
elsif ($line =~ /^\s*$/) { } |
|
|
0 |
0 |
elsif ($line =~ /^Warnings: \d+\s+/) { } |
|
295
|
0 |
0 |
if ($entry_info{'Path'}) |
|
333
|
0 |
0 |
if (@_ == 2) { } |
|
338
|
0 |
0 |
unless defined $options{'membername'} |
|
366
|
0 |
0 |
unless defined $extractedName |
|
382
|
0 |
0 |
if $options{'verbose'} |
|
384
|
0 |
0 |
if (basename($memberOrName ne $target_name)) |
|
390
|
0 |
0 |
unless (-f $src) |
|
393
|
0 |
0 |
unless rename $src, $extractedName |
|
414
|
0 |
0 |
if ($^O =~ /MSWin/) |
|
434
|
0 |
0 |
defined $_ && /\s/ ? : |
|
|
0 |
36 |
$quote ? : |
|
443
|
9 |
0 |
unless defined $options{'archivename'} |
|
444
|
0 |
9 |
unless (exists $options{'fs_encoding'}) |
|
445
|
0 |
0 |
defined $self->{'fs_encoding'} ? : |
|
447
|
0 |
9 |
unless (defined $options{'default_options'}) |
|
448
|
0 |
0 |
defined $self->{'default_options'} ? : |
|
452
|
0 |
9 |
if (defined $options{'fs_encoding'}) |
|
454
|
0 |
0 |
unless exists $sevenzip_charsetname{$options{'fs_encoding'}} |
|
455
|
0 |
0 |
if (my $charset = $sevenzip_charsetname{$options{'fs_encoding'}}) |
|
480
|
0 |
9 |
if (defined $options{'stdin'} or defined $options{'stdin_fh'}) |
|
486
|
0 |
9 |
if $options{'verbose'} or $self->{'verbose'} |
|
488
|
0 |
9 |
if ($self->{'verbose'}) { } |
|
489
|
0 |
0 |
unless CORE::open $fh, $mode, @$cmd |
|
492
|
0 |
9 |
unless CORE::open my $fh_err, ">", "File::Spec"->devnull |
|
498
|
0 |
0 |
unless my $pid = open3($fh_in, my $fh_out, ">&" . $errh, @$cmd) |
|
500
|
0 |
0 |
if ($mode eq '|-') { } |
|
506
|
0 |
0 |
if ($options{'encoding'}) { } |
|
|
0 |
0 |
elsif ($options{'binmode'}) { } |
|
512
|
0 |
0 |
if ($options{'stdin'}) { } |
|
|
0 |
0 |
elsif ($options{'stdin_fh'}) { } |
|
|
0 |
0 |
elsif ($options{'skip'}) { } |
|
532
|
0 |
0 |
unless (defined $self->{'archivename'}) |
|
545
|
0 |
0 |
if $options{'verbose'} or $self->{'verbose'} |
|
567
|
0 |
0 |
if ($sevenzip_stdin_support{$self->{'type'}}) { } |
|
598
|
0 |
0 |
unless unlink $tempname |
|
673
|
0 |
0 |
unless delete $options{'items'} |
|
680
|
0 |
0 |
unless (ref $item) |
|
685
|
0 |
0 |
if ($name ne $storedName) { } |
|
713
|
0 |
0 |
if (@filelist) |
|
720
|
0 |
0 |
if ($options{'recursive'}) |