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} |