| 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_') |
|
61
|
0 |
5 |
if $@ |
|
79
|
1 |
5 |
if -f $resource |
|
80
|
5 |
1 |
if -d $resource |
|
108
|
1 |
1 |
unless $file |
|
140
|
0 |
23 |
unless $type |
|
141
|
0 |
23 |
unless $s->{'_files'}{$t} |
|
149
|
0 |
23 |
unless $obj |
|
159
|
1 |
120 |
unless ($prop) |
|
165
|
120 |
0 |
ref $s->selected eq 'HASH' ? : |
|
169
|
0 |
120 |
unless (exists $object->{$attr}) |
|
173
|
0 |
120 |
if (ref $value eq 'ARRAY') { } |
|
183
|
0 |
23 |
unless ($obj) |
|
189
|
0 |
23 |
ref $s->selected eq 'HASH' ? : |
|
198
|
0 |
23 |
unless ($val) |
|
207
|
0 |
23 |
unless (exists $object->{$attr}) |
|
228
|
0 |
23 |
ref $s->selected eq 'HASH' ? : |
|
230
|
0 |
23 |
unless ($meth) |
|
237
|
0 |
23 |
unless ($obj->can($meth)) |
|
251
|
1 |
23 |
unless ($type) |
|
258
|
0 |
23 |
ref $s->selected eq 'HASH' ? : |
|
267
|
0 |
23 |
if (ref $s->selected eq 'HASH') { } |
|
277
|
0 |
30 |
if @_ |
|
287
|
10 |
43 |
ref $s->selected eq 'HASH' ? : |
|
293
|
1 |
6 |
if not -e $_[0] |
|
305
|
0 |
10 |
unless opendir my $dh, $dir |
|
311
|
9 |
1 |
if $s->{'_options'}{'recurse'} |
|
313
|
0 |
5 |
unless opendir my $tdh, 'File::Spec'->catdir($dir, $tdir) |
|
323
|
0 |
5 |
if $role->can('_run_processes') |
|
339
|
1054 |
18 |
if (defined $letters[$lc] and $cletters[$lc] eq $letters[$lc]) |
|
352
|
3 |
2 |
if (@files) { } |
|
371
|
23 |
0 |
if not $s->{'_files'}{$file} |
|
378
|
5 |
0 |
if $c->can('_init_processors') |
|
381
|
0 |
10 |
if $s->{'_files'}{"${it}_files"} |
|
392
|
23 |
0 |
if $role->can('_classify_file') |
|
401
|
10 |
14 |
if (not ref $arg) { } |
|
|
4 |
10 |
elsif (ref $arg eq 'HASH') { } |
|
|
9 |
1 |
elsif (ref $arg eq 'ARRAY') { } |
|
404
|
1 |
3 |
if %$user_opts |
|
407
|
1 |
8 |
if $classes |
|
413
|
2 |
6 |
unless @resources |