| blib/lib/File/BaseDir.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 22 | 95.4 |
| line | true | false | branch |
|---|---|---|---|
| 37 | 0 | 10 | unless $ENV{'HOME'} or eval { do { [getpwuid $>]->[7] } } |
| 44 | 1 | 14 | unless $ENV{'XDG_DATA_HOME'} |
| 49 | 9 | 4 | $ENV{'XDG_DATA_DIRS'} ? : |
| 53 | 1 | 7 | unless $ENV{'XDG_CONFIG_HOME'} |
| 58 | 6 | 1 | $ENV{'XDG_CONFIG_DIRS'} ? : |
| 62 | 1 | 2 | unless $ENV{'XDG_CACHE_HOME'} |
| 90 | 2 | 3 | if ref $_[0] or $_[0] =~ /::/ |
| 97 | 2 | 13 | if ref $file->[0] or $file->[0] =~ /::/ |
| 99 | 7 | 8 | if (wantarray) { } |
| 100 | 13 | 14 | if &$type($_) |
| 106 | 6 | 12 | if &$type($path) and -r $path |