| line |
true |
false |
branch |
| 45 |
0 |
19 |
if $drh |
| 63 |
19 |
0 |
if ($DBI::VERSION >= 1.37) |
| 106 |
0 |
0 |
if ($^O eq 'MSWin32' or $^O =~ /cygwin/i) |
| 108 |
0 |
0 |
if $debug |
| 111 |
0 |
0 |
if $sid and $oracle_home |
| 112 |
0 |
0 |
if $debug and $sid |
| 117 |
0 |
0 |
unless defined $d |
| 118 |
0 |
0 |
unless open FH, "<$d/oratab" |
| 119 |
0 |
0 |
if $debug |
| 122 |
0 |
0 |
unless $ot =~ /^\s*(\w+)\s*:\s*(.*?)\s*:/ |
| 124 |
0 |
0 |
if $debug |
| 132 |
0 |
0 |
if $oracle_home |
| 138 |
0 |
0 |
unless $d and open FH, "<$d/tnsnames.ora" |
| 139 |
0 |
0 |
if $debug |
| 142 |
0 |
0 |
unless /^\s*([-\w\.]+)\s*=/ |
| 144 |
0 |
0 |
$dbnames{$name} ? : |
| |
0 |
0 |
if $debug |
| 157 |
0 |
0 |
unless %dbnames |
| 159 |
0 |
0 |
$_ ? : |
| 167 |
0 |
18 |
if ($dbname =~ /;/) |
| 173 |
0 |
0 |
unless defined $v and defined $n |
| 185 |
0 |
0 |
unless $dbname{'HOST'} and %connect_data |
| 191 |
0 |
0 |
if ($dbname{'PORT'}) { } |
| 205 |
0 |
18 |
if not $dbname and $user and $user =~ s/\@(.*)//s |
| 207 |
0 |
18 |
if not $ENV{$ORACLE_ENV} and $^O ne 'MSWin32' |
| 212 |
0 |
18 |
if not defined $user |
| 222 |
18 |
0 |
unless DBD::Oracle::db::_login($dbh, $dbname, $user, $auth, $attr) |
| 225 |
0 |
0 |
if ($attr and $$attr{'ora_module_name'}) |
| 231 |
0 |
0 |
unless (length $user_only) |
| 262 |
0 |
0 |
unless DBD::Oracle::st::_prepare($sth, $statement, @attribs) |
| 281 |
0 |
0 |
$@ ? : |
| 289 |
0 |
0 |
if ref $v eq 'CODE' |
| 298 |
0 |
0 |
if (ref $CatVal eq 'HASH') |
| 304 |
0 |
0 |
if (defined $CatVal and $CatVal eq '%' and !defined($SchVal) || $SchVal eq '' and !defined($TblVal) || $TblVal eq '') { } |
| |
0 |
0 |
elsif (defined $SchVal and $SchVal eq '%' and !defined($CatVal) || $CatVal eq '' and !defined($TblVal) || $TblVal eq '') { } |
| |
0 |
0 |
elsif (defined $TypVal and $TypVal eq '%' and !defined($CatVal) || $CatVal eq '' and !defined($SchVal) || $SchVal eq '' and !defined($TblVal) || $TblVal eq '') { } |
| 371 |
0 |
0 |
if (defined $SchVal) |
| 374 |
0 |
0 |
if (defined $TblVal) |
| 377 |
0 |
0 |
if (defined $TypVal) |
| 383 |
0 |
0 |
if (not $table_type =~ /^'.*'$/) |
| 390 |
0 |
0 |
if @Where |
| 393 |
0 |
0 |
unless my $sth = $dbh->prepare($Sql) |
| 394 |
0 |
0 |
unless $sth->execute |
| 401 |
0 |
0 |
if (ref $catalog eq 'HASH') |
| 428 |
0 |
0 |
unless my $sth = $dbh->prepare($Sql) |
| 429 |
0 |
0 |
unless $sth->execute($schema, $table) |
| 435 |
0 |
0 |
ref $_[0] eq 'HASH' ? : |
| 478 |
0 |
0 |
if ($v) |
| 484 |
0 |
0 |
unless my $sth = $dbh->prepare($Sql) |
| 485 |
0 |
0 |
unless $sth->execute(@BindVals) |
| 492 |
0 |
0 |
ref $_[0] eq 'HASH' ? : |
| 495 |
0 |
0 |
if (ora_server_version($dbh)->[0] >= 8) |
| 621 |
0 |
0 |
if ($v) |
| 627 |
0 |
0 |
unless my $sth = $dbh->prepare($Sql) |
| 628 |
0 |
0 |
unless $sth->execute(@BindVals) |
| 634 |
0 |
0 |
ora_server_version($dbh)->[0] < DBD::Oracle::ORA_OCI() ? : |
| 636 |
0 |
0 |
$version < 8 ? : |
| 685 |
0 |
0 |
if $version >= 8 |
| 701 |
0 |
0 |
unless my $sth = shift(@_)->prepare_cached("\n\t SELECT name, type, line, position, text\n\t FROM user_errors ORDER BY name, type, sequence\n\t") |
| 705 |
0 |
0 |
unless $sth->execute |
| 709 |
0 |
0 |
if ($oname ne $name or $otype ne $type) |
| 730 |
0 |
0 |
unless my $sth = $dbh->prepare_cached('begin dbms_output.get_line(:l, :s); end;') |
| 736 |
0 |
0 |
if (not wantarray) |
| 737 |
0 |
0 |
unless $sth->execute |
| 738 |
0 |
0 |
if $status eq '0' |
| 747 |
0 |
0 |
unless my $sth = $dbh->prepare_cached('begin dbms_output.put_line(:1); end;') |
| 751 |
0 |
0 |
unless $sth->execute($line) |
| 759 |
0 |
0 |
unless my $sth = $dbh->prepare_cached("\n\t begin dbms_msgpipe.get_request(:returnpipe, :proc, :param); end;\n\t") |
| 766 |
0 |
0 |
unless $sth->execute |
| 773 |
0 |
0 |
unless my $sth = $dbh->prepare_cached("\n\t begin dbms_msgpipe.acknowledge(:returnpipe, :errormsg, :param); end;\n\t") |
| 779 |
0 |
0 |
unless $sth->execute |
| 785 |
0 |
0 |
if defined $$dbh{'ora_server_version'} |
| 798 |
0 |
0 |
if ($refresh or not $$dbh{'ora_nls_parameters'}) |
| 799 |
0 |
0 |
unless my $nls_parameters = $dbh->selectall_arrayref("\n\t\tSELECT parameter, value FROM v\$nls_parameters\n\t ") |
| 818 |
0 |
0 |
if defined $$dbh{'ora_can_unicode'} and not $refresh |
| 824 |
0 |
0 |
if $$nls{'NLS_NCHAR_CHARACTERSET'} =~ /UTF/ |
| 825 |
0 |
0 |
if $$nls{'NLS_CHARACTERSET'} =~ /UTF/ |
| 843 |
0 |
0 |
if (defined $tuple_status) |
| 851 |
0 |
0 |
unless &$fetch_tuple_sub() |
| 853 |
0 |
0 |
unless @tuple_batch |
| 858 |
0 |
0 |
if (defined $res and defined $row_count) { } |
| 864 |
0 |
0 |
if defined $tuple_status |
| 867 |
0 |
0 |
if (not wantarray) |
| 868 |
0 |
0 |
if not defined $row_count |
| 871 |
0 |
0 |
defined $row_count ? : |