| blib/lib/System/Introspector/Probe/Perls.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 16 | 68.7 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 0 | 2 | if $info and $$info{'config'}{'sitelibexp'} and $seen{$$info{'config'}{'sitelibexp'}}++ |
| 28 | 2 | 0 | if defined $info |
| 37 | 0 | 2 | unless open my $fh, '<', $config |
| 41 | 0 | 2 | unless defined $first_line and $first_line =~ /^#.+configpm/ |
| 46 | 2 | 200 | if ($line =~ /tie\s+\%Config/) |
| 51 | 42 | 158 | if ($line =~ /^\s*([a-z0-9_]+)\s*=>\s*'(.*)',\s*$/i) { } |
| 4 | 154 | elsif ($line =~ /^\s*([a-z0-9_]+)\s*=>\s*undef,$/i) { } | |
| 59 | 2 | 0 | defined $info{'scriptdir'} && $info{'version'} ? : |