| blib/lib/Inline/Select.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 22 | 45.4 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 0 | 1 | unless $group |
| 28 | 0 | 1 | unless $inline |
| 29 | 0 | 1 | unless UNIVERSAL::isa($inline, 'ARRAY') |
| 44 | 0 | 1 | unless $group |
| 47 | 0 | 1 | unless $inline |
| 48 | 0 | 1 | if ref $inline |
| 54 | 0 | 1 | if (not $inline =~ /^perl$/i) { } |
| 62 | 0 | 1 | unless UNIVERSAL::isa($Inline::Select::GROUPS{$group}{$inline}[1], 'CODE') |
| 71 | 0 | 1 | if $@ |
| 78 | 0 | 3 | if ($ENV{'PERL_INLINE_SELECT_DEBUG'}) |
| 79 | 0 | 0 | if (ref $msg) { } |