| blib/lib/Begin/Declare.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 20 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 8 | 0 | 0 | unless $src =~ s/^(.{20}).*/$1'.../ |
| 22 | 0 | 0 | unless /^($type_re)$/i |
| 23 | 0 | 0 | unless /^[A-Z]/ |
| 25 | 2 | 4 | unless /my|our/ |
| 2 | 0 | unless @_ | |
| 53 | 0 | 14 | unless get() =~ /^($type_re)(?:\b|$)/i |
| 60 | 7 | 7 | unless (strip_parens()) |
| 61 | 0 | 7 | unless (my $line = get()) =~ s/^([\$\%\@])// |
| 66 | 0 | 7 | unless ($line = get()) =~ s/^(\w+)// |
| 74 | 7 | 7 | if (get() =~ /^\(/) |