| line |
true |
false |
branch |
|
25
|
28 |
1 |
unless exists $args{'alias'}
|
|
32
|
2 |
23 |
if defined $args{'description'} and not $^P & 16
|
|
36
|
6 |
18 |
unless ($code)
|
|
37
|
1 |
5 |
if ($args{'terse_error'}) { }
|
|
51
|
28 |
1 |
if (defined $source) { }
|
|
52
|
2 |
26 |
if (ref $source) { }
|
|
53
|
1 |
1 |
if (&reftype($source) eq 'ARRAY' or overload::Method($source, '@{}')) { }
|
|
|
0 |
1 |
elsif (overload::Method($source, '""')) { }
|
|
77
|
0 |
27 |
unless &reftype($env) eq 'HASH'
|
|
82
|
1 |
7 |
if index('$@%&', substr($var, 0, 1)) < 0
|
|
90
|
1 |
6 |
unless ref $env->{$var}
|
|
97
|
1 |
1 |
unless defined $line
|
|
107
|
0 |
25 |
if ($ENV{'EVAL_CLOSURE_PRINT_SOURCE'})
|
|
112
|
5 |
20 |
unless defined $compiler
|
|
116
|
0 |
19 |
unless (defined $code)
|
|
123
|
1 |
18 |
if (not ref $code or ref $code ne 'CODE')
|
|
131
|
1 |
17 |
if ($alias)
|
|
173
|
1 |
5 |
if ($sigil eq '&')
|
|
180
|
1 |
4 |
if ($alias) { }
|
|
193
|
0 |
0 |
if (eval {
do {
require Perl::Tidy;
1
}
}) { }
|