| line |
true |
false |
branch |
|
26
|
28 |
1 |
unless exists $args{'alias'}
|
|
31
|
2 |
23 |
if defined $args{'description'} and not $^P & 16
|
|
37
|
6 |
18 |
unless ($code)
|
|
38
|
1 |
5 |
if ($args{'terse_error'}) { }
|
|
52
|
28 |
1 |
if (defined $source) { }
|
|
53
|
2 |
26 |
if (ref $source) { }
|
|
54
|
1 |
1 |
if (reftype $source eq 'ARRAY' or overload::Method($source, '@{}')) { }
|
|
|
0 |
1 |
elsif (overload::Method($source, '""')) { }
|
|
78
|
0 |
27 |
unless reftype $env eq 'HASH'
|
|
83
|
1 |
7 |
unless $var =~ /^([\@\%\$\&])/
|
|
90
|
1 |
6 |
unless ref $$env{$var}
|
|
98
|
1 |
1 |
unless defined $line
|
|
108
|
0 |
25 |
if ($ENV{'EVAL_CLOSURE_PRINT_SOURCE'})
|
|
114
|
20 |
5 |
if (defined $compiler)
|
|
118
|
1 |
18 |
if (defined $code and !ref($code) || ref $code ne 'CODE')
|
|
124
|
1 |
23 |
if ($alias)
|
|
166
|
1 |
5 |
if ($sigil eq '&')
|
|
173
|
1 |
4 |
if ($alias) { }
|
|
185
|
0 |
0 |
if (try sub {
require Perl::Tidy;
}
) { }
|