| blib/lib/Tangerine/hook/prefixedlist.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 10 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 14 | 9 | 70 | if (&any(sub { $s->[0] eq $_; } , 'use', 'no') and scalar @$s > 2 and &any(sub { $s->[1] eq $_; } , 'Mo', 'POE', 'Tk::widgets')) |
| 18 | 0 | 9 | $version ? : |
| 20 | 9 | 0 | if (scalar @$s > $voffset) |
| 21 | 0 | 9 | if $s->[$voffset] eq ';' |
| 27 | 1 | 8 | if ($s->[1] eq 'Tk::widgets') { } |