blib/lib/Tangerine/hook/moduleruntime.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 6 | 6 | 100.0 |
line | true | false | branch |
---|---|---|---|
14 | 2 | 80 | if (&any(sub { $s->[0] eq $_; } , 'use', 'no') and scalar @$s > 1 and $s->[1] eq 'Module::Runtime') |
21 | 3 | 137 | if ($self->type eq 'runtime' and &any(sub { my $f = $_; &any(sub { $_ eq $f; } , @$s); } , @routines)) |
27 | 3 | 6 | if (&any(sub { $s->[$clip] eq $_; } , '->', ';')) |