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'} ? : |