blib/lib/File/BaseDir.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 9 | 12 | 75.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
106 | 12 | 0 | 6 | &$type($path) and -r $path |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
37 | 10 | 0 | 0 | $ENV{'HOME'} or eval { do { [getpwuid $>]->[7] } } |
90 | 1 | 1 | 3 | ref $_[0] or $_[0] =~ /::/ |
97 | 1 | 1 | 13 | ref $file->[0] or $file->[0] =~ /::/ |