| line |
true |
false |
branch |
|
15
|
1 |
40 |
unless $AUTOLOAD =~ /.*::(next_|isa_|get_)*(\w+)_files*$/ |
|
18
|
1 |
39 |
if (not $s->{'_files'}{"$2_files"}) { } |
|
19
|
2 |
37 |
unless $1 |
|
21
|
23 |
14 |
if ($1 eq 'next_') |
|
25
|
2 |
12 |
if ($1 eq 'isa_') |
|
78
|
1 |
5 |
if -f $resource |
|
79
|
5 |
1 |
if -d $resource |
|
107
|
1 |
1 |
unless $file |
|
139
|
0 |
23 |
unless $type |
|
140
|
0 |
23 |
unless $s->{'_files'}{$t} |
|
148
|
0 |
23 |
unless $obj |
|
158
|
1 |
120 |
unless ($prop) |
|
164
|
120 |
0 |
ref $s->selected eq 'HASH' ? : |
|
168
|
0 |
120 |
unless (exists $object->{$attr}) |
|
172
|
0 |
120 |
if (ref $value eq 'ARRAY') { } |
|
182
|
0 |
23 |
unless ($obj) |
|
188
|
0 |
23 |
ref $s->selected eq 'HASH' ? : |
|
197
|
0 |
23 |
unless ($val) |
|
206
|
0 |
23 |
unless (exists $object->{$attr}) |
|
227
|
0 |
23 |
ref $s->selected eq 'HASH' ? : |
|
229
|
0 |
23 |
unless ($meth) |
|
236
|
0 |
23 |
unless ($obj->can($meth)) |
|
250
|
1 |
23 |
unless ($type) |
|
257
|
0 |
23 |
ref $s->selected eq 'HASH' ? : |
|
266
|
0 |
23 |
if (ref $s->selected eq 'HASH') { } |
|
276
|
0 |
30 |
if @_ |
|
286
|
10 |
43 |
ref $s->selected eq 'HASH' ? : |
|
292
|
1 |
6 |
if not -e $_[0] |
|
304
|
0 |
10 |
unless opendir my $dh, $dir |
|
310
|
9 |
1 |
if $s->{'_options'}{'recurse'} |
|
312
|
0 |
5 |
unless opendir my $tdh, 'File::Spec'->catdir($dir, $tdir) |
|
322
|
0 |
5 |
if $role->can('_run_processes') |
|
338
|
1054 |
18 |
if (defined $letters[$lc] and $cletters[$lc] eq $letters[$lc]) |
|
351
|
3 |
2 |
if (@files) { } |
|
370
|
23 |
0 |
if not $s->{'_files'}{$file} |
|
377
|
5 |
0 |
if $c->can('_init_processors') |
|
380
|
0 |
10 |
if $s->{'_files'}{"${it}_files"} |
|
391
|
23 |
0 |
if $role->can('_classify_file') |
|
400
|
10 |
14 |
if (not ref $arg) { } |
|
|
4 |
10 |
elsif (ref $arg eq 'HASH') { } |
|
|
9 |
1 |
elsif (ref $arg eq 'ARRAY') { } |
|
403
|
1 |
3 |
if %$user_opts |
|
406
|
1 |
8 |
if $classes |
|
412
|
2 |
6 |
unless @resources |