blib/lib/Switch/Again.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 11 | 11 | 100.0 |
line | l | !l | condition |
---|---|---|---|
35 | 1 | 23 | eval { do { @result = $Switch::Again::STRUCT{$_->{'ref'}}($_->{'case'}, $val); @result = () if @result and $result[0] eq ""; @result } } and do { @result = ref $_->{'cb'} eq "CODE" ? $_->{'cb'}->($val, @result) : $_->{'cb'} } and last |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
31 | 32 | 25 | 12 | @result and $result[0] eq "" |
35 | 44 | 2 | 23 | eval { do { @result = $Switch::Again::STRUCT{$_->{'ref'}}($_->{'case'}, $val); @result = () if @result and $result[0] eq ""; @result } } and do { @result = ref $_->{'cb'} eq "CODE" ? $_->{'cb'}->($val, @result) : $_->{'cb'} } |
36 | 3 | 1 | 7 | $default && &$default($val) |