| line |
true |
false |
branch |
|
5
|
5 |
0 |
if $INC[-1] eq "." |
|
13
|
0 |
17 |
if $ARGV[$i] eq "--" |
|
14
|
1 |
16 |
if $ARGV[$i] eq "--format=ustar" |
|
15
|
1 |
11 |
if $i < $#ARGV and $ARGV[$i] eq "--format" and $ARGV[$i + 1] eq "ustar" |
|
23
|
1 |
4 |
if @ARGV and $ARGV[0] =~ /^[DdcvzthxIC]+[fT]?$/ |
|
25
|
0 |
5 |
unless &getopts("Ddcvzthxf:ICT:", $opts) |
|
28
|
0 |
5 |
if $opts->{'h'} |
|
31
|
0 |
5 |
if $opts->{'d'} |
|
34
|
0 |
5 |
if $opts->{'I'} |
|
37
|
0 |
5 |
unless (1 == grep({defined $opts->{$_};} "x", "t", "c")) |
|
41
|
0 |
5 |
$opts->{'z'} ? : |
|
42
|
1 |
4 |
$opts->{'v'} ? : |
|
43
|
5 |
0 |
$opts->{'f'} ? : |
|
46
|
3 |
2 |
if ($opts->{'c'}) { } |
|
49
|
0 |
3 |
if ($opts->{'T'}) |
|
50
|
0 |
0 |
if ($opts->{'T'} eq '-') { } |
|
|
0 |
0 |
elsif (open my $fh, '<', $opts->{'T'}) { } |
|
60
|
1 |
2 |
if $verbose |
|
62
|
0 |
3 |
if ($file eq "-") |
|
70
|
0 |
3 |
if ($opts->{'C'}) |
|
77
|
0 |
2 |
if ($file eq "-") |
|
89
|
1 |
1 |
if $print |
|
92
|
0 |
2 |
if $opts->{'D'} |
|
95
|
1 |
1 |
if $opts->{'x'} |