| blib/lib/Perl6ish/Syntax/constant.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 10 | 80.0 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 3 | 0 | if (my($statement, $sigil, $name, $val) = $line =~ /(\bconstant\s+([\$\@\%])(\w+)\s*=\s*(.+);)/) |
| 23 | 1 | 2 | if $sigil eq '@' |
| 30 | 1 | 2 | if (ref $ref eq 'SCALAR') { } |
| 1 | 1 | elsif (ref $ref eq 'ARRAY') { } | |
| 1 | 0 | elsif (ref $ref eq 'HASH') { } |