| blib/lib/Test/Database/Driver.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 29 | 40 | 72.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 159 | 1 | 0 | 1 | $dbname and grep {$_ eq $dbname;} $self->databases |
| 185 | 29 | 8 | 4 | exists $$request{'version'} and $version_string ne $$request{'version'} |
| 188 | 30 | 3 | 4 | exists $$request{'regex_version'} and not $version_string =~ /$$request{'regex_version'}/ |
| 194 | 17 | 12 | 4 | exists $$request{'min_version'} and $version < $$request{'min_version'} |
| 197 | 15 | 8 | 6 | exists $$request{'max_version'} and $version >= $$request{'max_version'} |
| line | l | !l | condition |
|---|---|---|---|
| 103 | 7 | 2 | $$mapping{$self->driver_dsn} || {} |
| 267 | 2 | 0 | $_[1] || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 61 | 16 | 0 | 0 | $class->name || $args{'dbd'} |
| 211 | 37 | 13 | 0 | ref $self || $self |
| 215 | 21 | 16 | 0 | $$self{'base_dir'} ||= $dir |
| 220 | 31 | 7 | 0 | $_[0]{'version'} ||= 'version'->new($_[0]->_version =~ /^([0-9._]*[0-9])/) |
| 225 | 38 | 3 | 0 | $_[0]{'version_string'} ||= $_[0]->_version |
| 230 | 28 | 10 | 0 | $_[0]{'driver_dsn'} ||= $_[0]->_driver_dsn |
| 244 | 1 | 0 | 0 | ref $_[0] || $_[0] |