| line |
true |
false |
branch |
|
44
|
55 |
61 |
if (ref $arglist->[0]) { } |
|
|
61 |
0 |
elsif (my($flag, $key) = $arglist->[0] =~ /^([\-:])(\w+)/) { } |
|
46
|
55 |
0 |
if (ref $arglist->[0] eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $arglist->[0] eq 'SCALAR') { } |
|
54
|
0 |
55 |
unless (defined $taskqueue->{$task_name}) |
|
60
|
17 |
44 |
$flag eq ':' ? : |
|
71
|
0 |
38 |
if $opts->{'cf_debug'} |
|
73
|
0 |
38 |
if $@ |
|
80
|
4 |
18 |
if (ref $value) { } |
|
108
|
0 |
76 |
unless my $descs = $opts->{'cf_rules'}{$rule} |
|
109
|
44 |
32 |
unless @$descs |
|
141
|
13 |
25 |
if $opts->{'cf_export_alias'} |
|
148
|
0 |
38 |
if $opts->{'cf_debug'} |
|
152
|
0 |
1 |
if defined $entry and $entry->{'CODE'} |
|
166
|
5 |
4 |
ref $_ ? : |
|
169
|
8 |
52 |
if $opts->{'cf_type_name'} |
|
174
|
4 |
5 |
unless ref $child |
|
183
|
60 |
0 |
$super ? : |
|
|
49 |
11 |
$slots ? : |
|
205
|
18 |
0 |
if (ref $arg eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $arg eq 'HASH') { } |
|
214
|
18 |
0 |
wantarray ? : |