| 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'}) { } |