| line |
true |
false |
branch |
|
31
|
0 |
12 |
if (not -e $dir) { } |
|
|
0 |
12 |
elsif (not -d $dir) { } |
|
48
|
13 |
4 |
if ($class eq 'Test::Database::Driver') |
|
49
|
1 |
12 |
if (exists $args{'driver_dsn'}) |
|
54
|
1 |
12 |
unless exists $args{'dbd'} |
|
56
|
0 |
12 |
unless (eval "require Test::Database::Driver::$args{'dbd'}") |
|
70
|
0 |
16 |
unless ($class->is_filebased) |
|
71
|
0 |
0 |
unless eval {
do {
'DBI'->connect_cached($self->connection_info, {'PrintError', 0})
}
} |
|
95
|
16 |
0 |
unless defined $file |
|
99
|
7 |
9 |
unless -e $file |
|
106
|
0 |
9 |
if $self->_check_mapping |
|
111
|
1 |
0 |
unless defined $file |
|
115
|
1 |
0 |
if -e $file |
|
120
|
0 |
1 |
unless rename "$file.tmp", $file |
|
132
|
0 |
0 |
unless (exists $database{$$mapping{$cwd}}) |
|
146
|
5 |
2 |
$dsn =~ /^dbi:[^:]+:$/ ? : |
|
159
|
1 |
1 |
if ($dbname and grep {$_ eq $dbname;} $self->databases) { } |
|
185
|
4 |
37 |
if exists $$request{'version'} and $version_string ne $$request{'version'} |
|
188
|
4 |
33 |
if exists $$request{'regex_version'} and not $version_string =~ /$$request{'regex_version'}/ |
|
194
|
4 |
29 |
if exists $$request{'min_version'} and $version < $$request{'min_version'} |
|
197
|
6 |
23 |
if exists $$request{'max_version'} and $version >= $$request{'max_version'} |
|
212
|
1 |
49 |
if $class eq 'Test::Database::Driver' |
|
214
|
12 |
37 |
unless ref $self |
|
245
|
1 |
0 |
if $class->is_filebased |
|
250
|
13 |
0 |
if $_[0]->is_filebased |
|
268
|
1 |
1 |
if not $KEY =~ /^\w*$/ |
|
272
|
8 |
15 |
$KEY ? : |
|
281
|
0 |
13 |
unless opendir my $dh, $dir |