| blib/lib/File/ShareDir/Dist.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 24 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 1 | 13 | if defined $ENV{'PERL_FILE_SHAREDIR_DIST'} and $ENV{'PERL_FILE_SHAREDIR_DIST'} =~ /^(.*?)=(.*)$/ |
| 28 | 3 | 11 | if $over{$dist_name} |
| 36 | 7 | 5 | if (-f $pm) |
| 39 | 5 | 2 | if (-d $share) |
| 44 | 2 | 0 | unless ('File::Spec'->file_name_is_absolute($inc)) |
| 48 | 2 | 0 | if (defined $dirs[-1] and $dirs[-1] eq 'lib') |
| 60 | 1 | 1 | if (-d $share) |
| 79 | 2 | 2 | unless defined $dir and -d $dir |
| 81 | 1 | 1 | unless -f $fn |
| 83 | 0 | 1 | unless open $fh, '<', $fn |
| 87 | 0 | 1 | if $@ |
| 99 | 1 | 2 | if ($arg =~ /^-(.*?)=(.*)$/) { } |