| line |
true |
false |
branch |
|
43
|
0 |
12 |
unless ref $spec |
|
50
|
0 |
12 |
unless my $factory_name = delete $args{'-factory'} |
|
52
|
0 |
12 |
unless my $factory = $package->can($factory_name) |
|
56
|
0 |
12 |
if (my $r = delete $args{'-recursed'}) |
|
66
|
4 |
9 |
$_->is_dir ? : |
|
74
|
26 |
57 |
if @rest |
|
75
|
27 |
56 |
if $throw and ($meta->{'type'} // "") eq "error" |
|
76
|
15 |
41 |
if wantarray |
|
81
|
0 |
53 |
@rest == 1 ? : |
|
90
|
0 |
4 |
@args && ref $args[0] ? : |
|
92
|
0 |
8 |
ref $_ eq 'CODE' ? : |
|
96
|
6 |
10 |
if (@type and ($type[0] // "") eq "list") |
|
97
|
4 |
2 |
if defined $key |
|
109
|
7 |
10 |
unless eval {
do {
@retval = &$candidate($key, @type)
}
} |
|
110
|
4 |
6 |
if defined $retval[0] |
|
117
|
0 |
8 |
@args && ref $args[1] ? : |
|
122
|
13 |
8 |
if $candidate and $candidate->exists and $root->subsumes($candidate) |
|
131
|
9 |
16 |
if ($type eq "list") |
|
132
|
5 |
4 |
defined $key ? : |
|
133
|
2 |
7 |
unless defined $l_root |
|
134
|
2 |
5 |
unless $l_root->is_dir |
|
139
|
6 |
10 |
unless defined $path |
|
140
|
2 |
8 |
unless $path->is_file |
|
142
|
4 |
4 |
unless $ref |
|
148
|
0 |
0 |
@args && ref $args[1] ? : |
|
155
|
0 |
12 |
@args && ref $args[1] ? : |
|
162
|
14 |
28 |
if ($type eq "list") |
|
163
|
8 |
6 |
if defined $key |
|
169
|
18 |
10 |
unless $tar->contains_file($key) |
|
170
|
13 |
15 |
unless $tar->contains_file($key) |
|
172
|
6 |
9 |
unless $ref |
|
180
|
0 |
3 |
ref $_[0] ? : |
|
187
|
0 |
3 |
ref $_[0] ? : |
|
|
0 |
3 |
unless print {$fh;} ref $_[0] ? ${$_[0];} : $_[0] |
|
188
|
0 |
3 |
unless close $fh |
|
199
|
0 |
6 |
unless open my $fh, "<:raw", $input |
|
211
|
0 |
23 |
unless my $itype = $$canonical_name_for{$_[1]} |
|
212
|
10 |
13 |
unless my $otype = $$canonical_name_for{$_[2]} |
|
214
|
4 |
9 |
if $itype eq $otype |