| blib/lib/Acme/BeyondPerl/ToSQL.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 28 | 60.7 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 1 | 0 | if @_ == 1 |
| 22 | 0 | 1 | @_ > 1 ? : |
| 24 | 1 | 0 | unless $Dbh |
| 33 | 1 | 0 | if (defined $hash{'debug'}) |
| 69 | 0 | 1 | unless $Dbh = 'DBI'->connect($dsn, $user, $pass, $opts) |
| 79 | 0 | 1 | if ($@) |
| 93 | 0 | 1 | if ($@) |
| 114 | 0 | 21 | if ($DEBUG) |
| 127 | 1 | 14 | if ($swap) |
| 128 | 14 | 1 | if UNIVERSAL::can($x, 'as_sql') |
| 129 | 14 | 1 | if UNIVERSAL::can($y, 'as_sql') |
| 135 | 0 | 6 | if ($swap) |
| 136 | 6 | 0 | if UNIVERSAL::can($x, 'as_sql') |
| 137 | 6 | 0 | if UNIVERSAL::can($y, 'as_sql') |