| blib/lib/SQLib.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 16 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 117 | 0 | 6 | unless -e $$self{'file'} |
| 119 | 0 | 6 | unless tie my @queries, 'Tie::File', $$self{'file'} |
| 138 | 13 | 7644 | if $queries[$i] =~ m(^\[\s*/\s*$name\s*\]$) |
| 139 | 3681 | 3963 | if $queries[$i] =~ /^\s*$/ and not $reading |
| 140 | 3 | 3960 | if $reading and $queries[$i] =~ /^\[/ |
| 142 | 63 | 3897 | if ($reading) |
| 148 | 14 | 3883 | if ($queries[$i] =~ /^\[\s*$name\s*\]\s*/) |
| 156 | 105 | 11 | unless $reading |