| blib/lib/Test/Database/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 14 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 1 | 5 | unless open my $fh, '<', $file |
| 24 | 25 | 20 | if /^\s*(?:#|$)/ |
| 27 | 19 | 1 | if (/\s*(\w+)\s*=\s*(.*)\s*/) |
| 29 | 8 | 11 | if ($key =~ /$re_header/) { } |
| 1 | 10 | elsif (not $records) { } | |
| 30 | 5 | 3 | if keys %args |
| 45 | 2 | 1 | if keys %args |