| blib/lib/Perl6/Gather.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 4 | 19 | 21.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 3 | 0 | 0 | 0 | not ref $_ and /^[:\$&%\@]?(\w+)$/ |
| 0 | 0 | 0 | not ref $_ and /^[:\$&%\@]?(\w+)$/ and exists $EXPORT{$1} || exists $EXPORT_TAGS{$1} | |
| 16 | 4 | 0 | 0 | not eval { do { &$code } } and $@ |
| 0 | 0 | 0 | not eval { do { &$code } } and $@ and not UNIVERSAL::isa($@, 'Perl6::Gather::Break') |
| line | l | !l | condition |
|---|---|---|---|
| 3 | 0 | 1 | $EXPORT_TAGS{'MANDATORY'} ||= [] |
| 30 | 32 | 1 | (caller 3)[3] || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 3 | 0 | 0 | 0 | exists $EXPORT{$1} || exists $EXPORT_TAGS{$1} |