| line |
true |
false |
branch |
|
18
|
5 |
0 |
unless ($parse_ctx{'no-builtin'}) |
|
32
|
0 |
19 |
unless defined $definition |
|
35
|
12 |
7 |
if (ref $definition eq "") |
|
36
|
0 |
12 |
unless length $definition |
|
38
|
0 |
12 |
if $definition =~ /\A context (?: \z | \. (.*)) /msux |
|
43
|
7 |
5 |
if $first eq "." |
|
44
|
5 |
0 |
if $first eq "=" |
|
45
|
0 |
0 |
if $first eq "&" |
|
48
|
0 |
0 |
unless ref $definition |
|
57
|
0 |
7 |
if (exists $copy{'type'}) |
|
59
|
0 |
0 |
if (not defined $type) { } |
|
|
0 |
0 |
elsif ($type eq 'data') { } |
|
|
0 |
0 |
elsif ($type eq 'sub') { } |
|
62
|
0 |
0 |
unless exists $copy{'value'} |
|
67
|
0 |
0 |
unless exists $copy{'name'} |
|
74
|
7 |
0 |
if (scalar keys %copy == 1) { } |
|
76
|
0 |
7 |
if $key eq "data" |
|
78
|
0 |
7 |
if $key eq "sub" |
|
80
|
0 |
7 |
if ($key eq "context") |
|
81
|
0 |
0 |
if length($value // "") and substr($value, 0, 1) eq "." |
|
85
|
0 |
7 |
if $key =~ m[\A (.+) (?: :: | /) (.+)]msux |
|
99
|
0 |
19 |
exists $parse_ctx->{'definition-normalizer'} ? : |
|
101
|
19 |
0 |
if defined $normalizer |
|
105
|
0 |
19 |
unless my $parser = __PACKAGE__->can("generate_function_$type") |
|
121
|
7 |
0 |
if $entry eq "run" |
|
137
|
0 |
7 |
unless defined $name |
|
138
|
0 |
7 |
unless length $name |
|
143
|
0 |
7 |
$is_absolute ? : |
|
152
|
7 |
2 |
if (my $factory = $module->can('factory')) { } |
|
|
0 |
2 |
elsif ($function = $module->can($name)) { } |
|
154
|
7 |
0 |
if defined $function |
|
162
|
0 |
2 |
unless (eval {
do {
require_module($module)
}
}) |