| line |
true |
false |
branch |
|
21
|
0 |
0 |
if $opts->{'no_copy'} |
|
24
|
0 |
0 |
unless ($owner) |
|
31
|
0 |
0 |
if (ref $template->{'type'}) |
|
54
|
0 |
0 |
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
|
0 |
0 |
if (ref $what eq 'ARRAY') { } |
|
77
|
0 |
0 |
if ref $parent->{$_} eq 'HASH' |
|
|
0 |
0 |
if &first(sub {
exists $parent->{$_}{$name} if ref $parent->{$_} eq 'HASH';
}
, @$what) |
|
82
|
0 |
0 |
if ref $parent->{$what} eq 'HASH' and exists $parent->{$what}{$name} |
|
91
|
0 |
0 |
if (ref $type) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($type, 'ARRAY')) { } |
|
92
|
0 |
0 |
if (UNIVERSAL::isa($type, 'HASH')) |
|
93
|
0 |
0 |
if (exists $$type{-'name'} and $$type{-'name'} eq 'template') |
|
95
|
0 |
0 |
if ($type->{'type'}) |
|
101
|
0 |
0 |
if (defined $ref and length $ref) |
|
103
|
0 |
0 |
if (defined $owner and $owner == $template) { } |
|
105
|
0 |
0 |
if (exists $copy->{'let'}{$ref}) { } |
|
107
|
0 |
0 |
if ($let->{'type'}) { } |
|
112
|
0 |
0 |
if (exists $type->{$d}) |
|
120
|
0 |
0 |
if (exists $let->{$d}) |
|
136
|
0 |
0 |
if (ref $type->{$d}) |
|
142
|
0 |
0 |
if (ref $type->{$d}) |