line |
true |
false |
branch |
14
|
0 |
0 |
if ($DBI::VERSION >= 1.614) |
15
|
0 |
0 |
unless exists $attr->{'AutoInactiveDestroy'} |
17
|
0 |
0 |
if ($dsn =~ /^dbi:SQLite:/i) { } |
|
0 |
0 |
elsif ($dsn =~ /^dbi:mysql:/i) { } |
|
0 |
0 |
elsif ($dsn =~ /^dbi:Pg:/i) { } |
18
|
0 |
0 |
unless exists $attr->{'sqlite_unicode'} |
21
|
0 |
0 |
unless exists $attr->{'mysql_enable_utf8'} |
25
|
0 |
0 |
if (not $@ and $dbd_pg_version < 2.99) |
26
|
0 |
0 |
unless exists $attr->{'pg_enable_utf8'} |
29
|
0 |
0 |
unless my $self = $class->SUPER::connect($dsn, $user, $pass, $attr) |
54
|
0 |
0 |
unless (defined $self->{'private_txn_manager'}) |