| blib/lib/PerlX/Let.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 14 | 92.8 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 2 | 12 | unless defined $name |
| 36 | 2 | 10 | unless $$ref =~ s/^\s*\=>?\s*//u |
| 38 | 9 | 1 | unless defined $val |
| 41 | 7 | 3 | unless (defined $val) |
| 46 | 0 | 10 | unless defined $val |
| 48 | 7 | 3 | if (not $val =~ /[\$\@\%\&]/u and $] >= 5.028 || substr($name, 0, 1) eq '$') { } |
| 67 | 5 | 3 | if ($code) { } |