| blib/lib/Sub/Auto.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 16 | 81.2 |
| line | true | false | branch |
|---|---|---|---|
| 144 | 9 | 18 | if (my(@result) = $method =~ /$re/) |
| 145 | 4 | 5 | unless defined $1 |
| 175 | 1 | 4 | if (defined $name) |
| 176 | 1 | 0 | unless $name =~ /::/ |
| 190 | 1 | 4 | if ($name) |
| 210 | 1 | 4 | if (my $len = Devel::Declare::toke_scan_word($Offset, 1)) |
| 224 | 5 | 0 | if (substr($linestr, $Offset, 1) =~ /^[[:punct:]]$/) |
| 245 | 5 | 0 | if (substr($linestr, $Offset, 1) eq '{') |