| blib/lib/Closure/Explicit.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 14 | 64.2 |
| line | true | false | branch |
|---|---|---|---|
| 83 | 0 | 6 | exists $ENV{'PERL_CLOSURE_EXPLICIT_CHECKS'} ? : |
| 141 | 6 | 13 | @_ > 1 ? : |
| 143 | 6 | 13 | if (my(@err) = lint($code, %spec)) |
| 182 | 11 | 1 | ref $closed{$_} eq 'REF' ? : |
| 189 | 6 | 13 | if ($spec{'weaken'}) |
| 202 | 0 | 0 | unless grep(($_ eq $var), @lexicals) |
| 209 | 0 | 0 | if grep(($_ eq $var), keys %closed) |