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 |