| line |
true |
false |
branch |
|
32
|
0 |
0 |
unless (exists $p{'Server'} and exists $p{'User'} and exists $p{'DBType'}) |
|
41
|
0 |
0 |
if ($p{'DBType'} eq 'Oracle' and not exists $p{'SID'}) |
|
48
|
0 |
0 |
unless exists $$obj{'LongReadLen'} |
|
49
|
0 |
0 |
unless exists $$obj{'LongTruncOk'} |
|
51
|
0 |
0 |
unless ($obj->Login) |
|
67
|
0 |
0 |
if (exists $$self{'dbh'}) |
|
71
|
0 |
0 |
if ($@) |
|
76
|
0 |
0 |
if ($$self{'DBType'} eq 'Sybase') { } |
|
|
0 |
0 |
elsif ($$self{'DBType'} eq 'Oracle') { } |
|
|
0 |
0 |
elsif ($$self{'DBType'} eq 'mysql') { } |
|
80
|
0 |
0 |
if (exists $$self{'Port'}) { } |
|
87
|
0 |
0 |
if ($$self{'Database'}) |
|
89
|
0 |
0 |
if ($$self{'Port'}) |
|
99
|
0 |
0 |
if exists $$self{'Pass'} |
|
101
|
0 |
0 |
unless ($$self{'dbh'} = 'DBI'->connect(@connect_args)) |