| blib/lib/Class/AutoGenerate/Declare.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 22 | 26 | 84.6 |
| line | true | false | branch |
|---|---|---|---|
| 133 | 3 | 50 | if ref $glob and ref $glob eq 'Regexp' |
| 143 | 31 | 19 | if ($has_capture) { } |
| 174 | 2 | 45 | if (ref $pattern and reftype $pattern eq 'ARRAY') { } |
| 181 | 43 | 2 | unless $declare_to |
| 294 | 1 | 1 | if $args |
| 297 | 0 | 2 | if $@ |
| 311 | 1 | 2 | unless $expr =~ /^[\w:]+$/ |
| 314 | 0 | 3 | if $@ |
| 330 | 1 | 29 | if ($name =~ s/^\$//) { } |
| 1 | 28 | elsif ($name =~ s/^\@//) { } | |
| 1 | 27 | elsif ($name =~ s/^\%//) { } | |
| 378 | 0 | 3 | if $@ |
| 464 | 0 | 1 | unless open my $fh, '<', $filename |