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