| line |
true |
false |
branch |
|
109
|
0 |
10 |
$^O =~ /MSWin/ ? : |
|
111
|
1 |
9 |
if ($ENV{'PERL_ARCHIVE_SEVENZIP_BIN'}) { } |
|
117
|
0 |
9 |
if ($^O =~ /MSWin/i) |
|
124
|
0 |
0 |
if ($^O eq "MSWin32") |
|
125
|
0 |
0 |
unless -e file("$dir", "7z.exe") |
|
132
|
9 |
1 |
unless ($found) |
|
135
|
10 |
0 |
defined $found ? : |
|
155
|
1 |
15 |
if (@_ == 2) { } |
|
161
|
0 |
16 |
if ($options{'find'}) |
|
167
|
28 |
52 |
unless defined $options{$_} |
|
177
|
50 |
0 |
unless defined $options{$_} |
|
179
|
0 |
10 |
ref $self_or_class ? : |
|
190
|
0 |
10 |
if (not $@) |
|
193
|
0 |
0 |
if (@output >= 3) { } |
|
197
|
0 |
0 |
unless $output[1] =~ /^7-Zip\s+.*?\b(\d+\.\d+)\s+(?:\(x64\))?(?:\s*:\s*)?Copyright/ |
|
252
|
0 |
0 |
unless (grep {defined $_;} $options{'archivename'}, $self->{'archivename'}) |
|
282
|
0 |
0 |
if ($output[0] =~ /^----------\s*$/) { } |
|
293
|
0 |
0 |
if ($line =~ /^([\w ]+) =(?: (.*?)|)\s*$/) { } |
|
|
0 |
0 |
elsif ($line =~ /^\s*$/) { } |
|
|
0 |
0 |
elsif ($line =~ /^Warnings: \d+\s+/) { } |
|
296
|
0 |
0 |
if ($entry_info{'Path'}) |
|
334
|
0 |
0 |
if (@_ == 2) { } |
|
339
|
0 |
0 |
unless defined $options{'membername'} |
|
367
|
0 |
0 |
unless defined $extractedName |
|
383
|
0 |
0 |
if $options{'verbose'} |
|
385
|
0 |
0 |
if (basename($memberOrName ne $target_name)) |
|
391
|
0 |
0 |
unless (-f $src) |
|
394
|
0 |
0 |
unless rename $src, $extractedName |
|
415
|
0 |
0 |
if ($^O =~ /MSWin/) |
|
435
|
0 |
0 |
defined $_ && /\s/ ? : |
|
|
0 |
40 |
$quote ? : |
|
444
|
10 |
0 |
unless defined $options{'archivename'} |
|
445
|
0 |
10 |
unless (exists $options{'fs_encoding'}) |
|
446
|
0 |
0 |
defined $self->{'fs_encoding'} ? : |
|
448
|
0 |
10 |
unless (defined $options{'default_options'}) |
|
449
|
0 |
0 |
defined $self->{'default_options'} ? : |
|
453
|
0 |
10 |
if (defined $options{'fs_encoding'}) |
|
455
|
0 |
0 |
unless exists $sevenzip_charsetname{$options{'fs_encoding'}} |
|
456
|
0 |
0 |
if (my $charset = $sevenzip_charsetname{$options{'fs_encoding'}}) |
|
481
|
0 |
10 |
if (defined $options{'stdin'} or defined $options{'stdin_fh'}) |
|
487
|
0 |
10 |
if $options{'verbose'} or $self->{'verbose'} |
|
489
|
0 |
10 |
if ($self->{'verbose'}) { } |
|
490
|
0 |
0 |
unless CORE::open $fh, $mode, @$cmd |
|
493
|
0 |
10 |
unless CORE::open my $fh_err, ">", "File::Spec"->devnull |
|
499
|
0 |
0 |
unless my $pid = open3($fh_in, my $fh_out, ">&" . $errh, @$cmd) |
|
501
|
0 |
0 |
if ($mode eq '|-') { } |
|
507
|
0 |
0 |
if ($options{'encoding'}) { } |
|
|
0 |
0 |
elsif ($options{'binmode'}) { } |
|
513
|
0 |
0 |
if ($options{'stdin'}) { } |
|
|
0 |
0 |
elsif ($options{'stdin_fh'}) { } |
|
|
0 |
0 |
elsif ($options{'skip'}) { } |
|
533
|
0 |
1 |
unless (defined $self->{'archivename'}) |
|
546
|
0 |
0 |
if $options{'verbose'} or $self->{'verbose'} |
|
568
|
0 |
0 |
if ($sevenzip_stdin_support{$self->{'type'}}) { } |
|
599
|
0 |
0 |
unless unlink $tempname |
|
674
|
0 |
0 |
unless delete $options{'items'} |
|
681
|
0 |
0 |
unless (ref $item) |
|
686
|
0 |
0 |
if ($name ne $storedName) { } |
|
702
|
0 |
0 |
if ($sourceName->is_absolute) |
|
721
|
0 |
0 |
if (@filelist) |
|
728
|
0 |
0 |
if ($options{'recursive'}) |