| blib/lib/DBR.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 3 | 30 | 10.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 35 | 37 | 0 | 0 | defined $app and length $app |
| 120 | 15 | 0 | 0 | $class and $class eq 'dbh' |
| 142 | 35 | 0 | 0 | $class and $class eq 'dbh' |
| line | l | !l | condition |
|---|---|---|---|
| 32 | 0 | 0 | $params{'use_exceptions'} || 0 |
| 48 | 0 | 0 | $params{'logpath'} || '/tmp/dbr_auto.log' |
| 0 | 0 | $params{'loglevel'} || 'warn' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 39 | 0 | 0 | 0 | $APP_BY_CONF{$conf} ||= 'auto_' . $CT++ |
| 0 | 0 | 0 | $app ||= ($APP_BY_CONF{$conf} ||= 'auto_' . $CT++) | |
| 48 | 0 | 0 | 0 | $OBJECTS{$app}{$exc} ||= 'DBR'->new(-'logger', 'DBR::Util::Logger'->new(-'logpath', $params{'logpath'} || '/tmp/dbr_auto.log', -'logLevel', $params{'loglevel'} || 'warn'), -'conf', $conf, -'use_exceptions', $exc) |
| 63 | 0 | 0 | 0 | blessed($_[0]) or $_[0]->isa([caller]->[0]) |
| 69 | 0 | 0 | 0 | blessed($_[0]) or $_[0]->isa([caller]->[0]) |