| line |
true |
false |
branch |
|
240
|
19 |
1 |
unless (defined $self->{'tar'}) |
|
242
|
0 |
0 |
if ($self->_is_openbsd and $self->{'tar_read_options'}) |
|
246
|
0 |
19 |
if ($self->{'osname'} eq 'MSWin32') { } |
|
253
|
0 |
19 |
unless (defined $self->{'tar'}) |
|
257
|
0 |
0 |
if ($self->{'osname'} eq 'MSWin32') { } |
|
269
|
0 |
20 |
if (defined $self->{'ramdisk'}) { } |
|
271
|
0 |
0 |
unless ($rc) |
|
278
|
2 |
18 |
$self->{'tmpdir'} ? : |
|
283
|
0 |
20 |
unless mkpath([$self->{'tardir'}], 0, 493) |
|
285
|
0 |
20 |
if $logger->is_debug |
|
325
|
0 |
0 |
if ($compress_opt) |
|
334
|
0 |
0 |
if $self->{'tar_read_options'} ne '' |
|
336
|
0 |
0 |
if scalar @{$self->{'tar_gnu_read_options'};} > 0 |
|
346
|
10 |
4 |
unless (File::Spec::Functions::file_name_is_absolute($tarfile)) |
|
351
|
0 |
14 |
unless chdir $self->{'tardir'} |
|
358
|
0 |
14 |
if ($self->_is_openbsd) { } |
|
371
|
0 |
14 |
if $logger->is_debug |
|
374
|
1 |
13 |
unless ($error_code) |
|
376
|
0 |
1 |
unless chdir $cwd |
|
380
|
0 |
13 |
if $logger->is_warn and $err |
|
381
|
0 |
13 |
unless chdir $cwd |
|
382
|
0 |
13 |
$error_code == 0 ? : |
|
399
|
0 |
7 |
unless chdir $self->{'tardir'} |
|
400
|
0 |
7 |
unless open my $fh, '>', $list_file |
|
402
|
0 |
7 |
if ($logger->is_debug) |
|
410
|
0 |
18 |
-l $_ ? : |
|
|
17 |
18 |
-d $_ ? : |
|
416
|
0 |
35 |
if $logger->is_debug |
|
421
|
0 |
7 |
if $logger->is_debug |
|
423
|
0 |
7 |
unless chdir $cwd |
|
454
|
21 |
3 |
unless $skip |
|
459
|
0 |
24 |
if ($self->_is_openbsd) { } |
|
|
1 |
46 |
elsif ($self->{'tar'} =~ /$bsd_regex/i and $self->{'tar_exit_code'} == 1) { } |
|
474
|
1 |
23 |
unless $self->{'tar_exit_code'} == 0 |
|
475
|
22 |
2 |
if $self->{'version_info'} =~ /GNU/ |
|
484
|
0 |
0 |
unless defined $tar_path |
|
486
|
0 |
0 |
if ($tar_path =~ /\s/) |
|
538
|
5 |
14 |
if $tarfile =~ /$self->{'gzip_regex'}/xi |
|
539
|
2 |
12 |
if $tarfile =~ /$self->{'bzip2_regex'}/xi |
|
542
|
0 |
12 |
unless open my $fh, '<', $tarfile |
|
544
|
0 |
12 |
unless my $read = sysread($fh, my $two, 2, 0) |
|
548
|
1 |
11 |
if ord substr($two, 0, 1) == 31 and ord substr($two, 1, 1) == 139 |
|
571
|
14 |
3 |
if (-e $real_path) { } |
|
572
|
0 |
14 |
if $logger->is_debug |
|
576
|
0 |
3 |
if $logger->is_warn |
|
610
|
2 |
14 |
if ($opts) |
|
611
|
0 |
2 |
unless (ref $opts and ref $opts eq 'HASH') |
|
617
|
1 |
15 |
if defined $opts->{'perm'} |
|
618
|
0 |
16 |
if defined $opts->{'uid'} |
|
619
|
0 |
16 |
if defined $opts->{'gid'} |
|
620
|
1 |
15 |
if defined $opts->{'binmode'} |
|
625
|
9 |
7 |
unless (-d $target_dir) |
|
626
|
1 |
8 |
if (ref $path_or_stringref) { } |
|
634
|
2 |
14 |
if (ref $path_or_stringref) { } |
|
|
9 |
5 |
elsif (-d $path_or_stringref) { } |
|
635
|
0 |
2 |
unless open my $fh, '>', $target |
|
636
|
1 |
1 |
if (defined $binmode) |
|
645
|
9 |
0 |
unless -d $target |
|
648
|
0 |
5 |
unless copy($path_or_stringref, $target) |
|
652
|
0 |
16 |
if (defined $uid) |
|
653
|
0 |
0 |
unless chown $uid, -1, $target |
|
657
|
0 |
16 |
if (defined $gid) |
|
658
|
0 |
0 |
unless chown -1, $gid, $target |
|
662
|
1 |
15 |
if (defined $perm) |
|
663
|
0 |
1 |
unless chmod $perm, $target |
|
667
|
13 |
2 |
unless (defined $uid or defined $gid or defined $perm or ref $path_or_stringref) |
|
672
|
0 |
13 |
unless perm_cp($path_or_stringref, $target) |
|
719
|
0 |
13 |
unless my(@stats) = (stat $filename)[2, 4, 5] |
|
751
|
0 |
13 |
unless chmod $perms->[0] & 511, $filename |
|
768
|
0 |
0 |
unless rmtree($target) |
|
823
|
0 |
27 |
unless open my $fh, '<', $list_file |
|
830
|
35 |
7 |
if (defined $line) { } |
|
836
|
15 |
20 |
if $type eq 'd' and not $self->{'dirs'} |
|
851
|
27 |
27 |
if (defined $new_offset) |
|
852
|
0 |
27 |
unless open my $fh, '>', $offset_file |
|
857
|
0 |
54 |
unless open my $fh, '<', $offset_file |
|
880
|
0 |
5 |
unless chdir $self->{'tardir'} |
|
882
|
0 |
5 |
unless (File::Spec::Functions::file_name_is_absolute($tarfile)) |
|
887
|
2 |
3 |
if $compress |
|
889
|
0 |
5 |
unless opendir my $dir, '.' |
|
900
|
0 |
5 |
if (@top_entries > $self->{'max_cmd_line_args'}) { } |
|
902
|
0 |
0 |
unless open my $fh, '>', $filelist_file |
|
916
|
0 |
5 |
if $logger->is_debug |
|
919
|
1 |
4 |
unless ($rc) |
|
921
|
0 |
1 |
unless chdir $cwd |
|
925
|
0 |
4 |
if $err |
|
926
|
0 |
4 |
unless chdir $cwd |
|
938
|
20 |
13 |
if (length $_ <= 2 and $_ eq '.' || $_ eq '..') { } |
|
941
|
10 |
10 |
if ($found < 1) { } |
|
968
|
0 |
20 |
if defined $self->{'ramdisk'} |
|
969
|
20 |
0 |
if defined $self->{'objdir'} |
|
970
|
20 |
0 |
if defined $self->{'tmpdir'} |
|
1037
|
0 |
0 |
unless $self->{'mount'} |
|
1038
|
0 |
0 |
unless $self->{'umount'} |
|
1041
|
0 |
0 |
unless (defined $self->{$_}) |
|
1049
|
0 |
0 |
unless defined $self->{'ramdisk'}{'size'} |
|
1051
|
0 |
0 |
unless (defined $self->{'ramdisk'}{'tmpdir'}) |
|
1063
|
0 |
0 |
if ($rc) |
|
1065
|
0 |
0 |
if ($logger->is_info) |
|
1089
|
0 |
0 |
unless exists $self->{'ramdisk'}{'mounted'} |
|
1091
|
0 |
0 |
if $logger->is_info |
|
1094
|
0 |
0 |
if ($rc) |