| blib/lib/lib/restrict.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 6 | 18 | 33.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 15 | 0 | 1 | 0 | defined $_[-1] and ref $_[-1] eq 'ARRAY' || $_[-1] =~ /^\d+$/ || ref $_[-1] eq 'CODE' |
| 36 | 0 | 1 | 0 | not -d $path and ref $ENV{'lib::restrict-!-d_ok_in'} eq 'ARRAY' |
| 58 | 1 | 0 | 0 | keys %uid and not exists $uid{_get_owner($path)} |
| 1 | 0 | 0 | ref $chk eq 'CODE' and not &$chk($_) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 15 | 0 | 0 | 1 | ref $_[-1] eq 'ARRAY' || $_[-1] =~ /^\d+$/ || ref $_[-1] eq 'CODE' |
| 58 | 0 | 0 | 1 | keys %uid and not exists $uid{_get_owner($path)} or ref $chk eq 'CODE' and not &$chk($_) |