| blib/lib/App/newver/INI.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 10 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 0 | 1 | unless open my $fh, "<", $file |
| 23 | 3 | 12 | if ($l =~ /^#/u or $l eq "") |
| 26 | 3 | 9 | if ($l =~ /^\[\s*(.+)\s*\]$/u) { } |
| 9 | 0 | elsif ($l =~ /^(\w+)\s*=\s*(.+)$/u) { } | |
| 29 | 0 | 9 | unless (defined $sect) |