lib/Module/Info/File.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 12 | 18 | 66.6 |
line | true | false | branch |
---|---|---|---|
15 | 0 | 2 | unless open my $file, '<', $filename |
20 | 2 | 18 | if ($_ =~ /\bpackage\s?([A-Za-z0-9_:]+);/mx) |
21 | 2 | 0 | if ($1) { } |
30 | 2 | 18 | if ($_ =~ /\bVERSION\b\s*=\s*'([0-9_.]+)'*;/mx) |
34 | 2 | 18 | if ($name and $dir and $filename and $version) |
41 | 2 | 0 | $version ? : |
58 | 0 | 2 | unless ($$self{'version'}) |
68 | 0 | 2 | if ($version) |
73 | 2 | 0 | if ($$self{'version'}) { } |