| line |
true |
false |
branch |
|
21
|
0 |
1 |
if $opts->{'no_copy'} |
|
24
|
0 |
1 |
unless ($owner) |
|
31
|
1 |
0 |
if (ref $template->{'type'}) |
|
54
|
0 |
4 |
if exists $parent->{'type'}{$name} or exists $parent->{'derive'}{$name} and $parent->{'derive'}{$name}{'type'} ne $name or exists $parent->{'param'}{$name} |
|
62
|
0 |
0 |
if exists $parent->{'template'}{$name} |
|
74
|
2 |
1 |
if (ref $what eq 'ARRAY') { } |
|
77
|
3 |
10 |
if ref $parent->{$_} eq 'HASH' |
|
|
2 |
3 |
if &first(sub {
exists $parent->{$_}{$name} if ref $parent->{$_} eq 'HASH';
}
, @$what) |
|
82
|
1 |
0 |
if ref $parent->{$what} eq 'HASH' and exists $parent->{$what}{$name} |
|
91
|
11 |
0 |
if (ref $type) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($type, 'ARRAY')) { } |
|
92
|
11 |
0 |
if (UNIVERSAL::isa($type, 'HASH')) |
|
93
|
0 |
11 |
if (exists $type->{'-name'} and $type->{'-name'} eq 'template') |
|
95
|
0 |
0 |
if ($type->{'type'}) |
|
101
|
2 |
9 |
if (defined $ref and length $ref) |
|
103
|
2 |
0 |
if (defined $owner and $owner == $template) { } |
|
105
|
1 |
1 |
if (exists $copy->{'let'}{$ref}) { } |
|
107
|
0 |
1 |
if ($let->{'type'}) { } |
|
112
|
0 |
8 |
if (exists $type->{$d}) |
|
120
|
1 |
5 |
if (exists $let->{$d}) |
|
136
|
3 |
26 |
if (ref $type->{$d}) |
|
142
|
3 |
33 |
if (ref $type->{$d}) |