| line |
true |
false |
branch |
|
32
|
40 |
15 |
unless opendir my $dh, 'File::Spec'->catdir($dir, ('Test', 'Database', 'Driver')) |
|
54
|
0 |
10 |
unless eval {
do {
$driver = 'Test::Database::Driver'->new('dbd', $_);
1
}
} |
|
56
|
0 |
10 |
unless $driver |
|
72
|
0 |
4 |
if -e $rc |
|
76
|
0 |
4 |
-e $old ? : |
|
89
|
4 |
1 |
unless @files |
|
100
|
0 |
3 |
unless eval {
do {
'Test::Database::Handle'->new(%$_)
}
} |
|
105
|
0 |
0 |
unless eval {
do {
'Test::Database::Driver'->new(%$_)
}
} |
|
115
|
1 |
3 |
$type eq 'available' ? : |
|
|
1 |
4 |
$type eq 'all' ? : |
|
126
|
6 |
56 |
unless @requests |
|
130
|
13 |
73 |
ref $_ ? : |
|
140
|
96 |
96 |
if $$request{'dbd'} ne $handle->dbd |
|
141
|
0 |
96 |
if (grep /version/, keys %$request) |
|
142
|
0 |
0 |
unless $driver and $driver->version_matches($request) |
|
147
|
96 |
66 |
if $ok |
|
155
|
2 |
2 |
if $$request{'dbd'} ne $driver->dbd |
|
156
|
0 |
2 |
unless $driver->version_matches($request) |
|
160
|
2 |
2 |
if $ok |
|
172
|
16 |
4 |
@h ? : |