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 ? : |