| line |
true |
false |
branch |
|
20
|
0 |
1 |
unless my $to = caller |
|
24
|
0 |
0 |
if ($key eq 'vars' or $key eq 'variables') { } |
|
|
0 |
0 |
elsif ($key eq 'functors') { } |
|
|
0 |
0 |
elsif ($key eq 'atoms') { } |
|
|
0 |
0 |
elsif ($key eq 'chains') { } |
|
|
0 |
0 |
elsif ($key eq 'auto_functor') { } |
|
|
0 |
0 |
elsif ($key eq 'auto_term') { } |
|
26
|
0 |
0 |
if (ref $vars eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $vars eq 'HASH') { } |
|
44
|
0 |
0 |
if (ref $functors eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $functors eq 'HASH') { } |
|
66
|
0 |
0 |
if (ref $atoms eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $atoms eq 'HASH') { } |
|
84
|
0 |
0 |
if (ref $chains eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $chains eq 'HASH') { } |
|
120
|
0 |
0 |
unless length $pkg |
|
121
|
0 |
0 |
if $name =~ /^[A-Z]/ |
|
132
|
0 |
0 |
unless length $pkg |
|
133
|
0 |
0 |
if ($name =~ /^[A-Z]/) { } |