| line |
true |
false |
branch |
|
23
|
0 |
1 |
if $drh |
|
53
|
0 |
0 |
unless defined $attr_value |
|
57
|
0 |
0 |
unless $attr_name =~ /^$driver_prefix/o |
|
66
|
0 |
0 |
unless defined $$attr{'mvs_ftpsql_hostname'} |
|
78
|
0 |
0 |
unless $$attr{'mvs_ftpsql_remote_prefix'} |
|
81
|
0 |
0 |
unless $$attr{'mvs_ftpsql_ssid'} |
|
84
|
0 |
0 |
unless my $conn = 'Net::FTP'->new($host, 'Port', $port, 'Debug', $debug, 'Timeout', $timeout, 'Passive', 1) |
|
92
|
0 |
0 |
unless $conn->login($username, $password) |
|
95
|
0 |
0 |
unless ($remote_directory eq '') |
|
97
|
0 |
0 |
unless $conn->cwd($remote_directory) |
|
128
|
0 |
0 |
if ref $v eq 'CODE' |
|
150
|
0 |
0 |
if (defined ${$$_[0];} and ${$$_[0];} ne '') |
|
151
|
0 |
0 |
index(${$$_[0];}, '%') < 0 ? : |
|
156
|
0 |
0 |
$#where >= 0 ? : |
|
184
|
0 |
0 |
unless $sth->execute |
|
207
|
0 |
0 |
unless defined $type2flag{$type} |
|
212
|
0 |
0 |
if (defined ${$$_[0];} and ${$$_[0];} ne '') |
|
213
|
0 |
0 |
index(${$$_[0];}, '%') < 0 ? : |
|
218
|
0 |
0 |
$#where >= 0 ? : |
|
241
|
0 |
0 |
unless $sth->execute |
|
247
|
0 |
0 |
if ($dbh->FETCH('Active')) |
|
253
|
0 |
0 |
unless $warnmsg eq '' |
|
261
|
0 |
0 |
unless $dbh->FETCH('Active') |
|
264
|
0 |
0 |
unless length $statement |
|
284
|
0 |
0 |
if ($dbh->FETCH('Warn')) |
|
292
|
0 |
0 |
if ($dbh->FETCH('Warn')) |
|
300
|
0 |
0 |
if ($attr eq 'AutoCommit') |
|
301
|
0 |
0 |
unless ($val) |
|
304
|
0 |
0 |
if ($attr eq 'ChopBlanks') |
|
305
|
0 |
0 |
unless ($val) |
|
308
|
0 |
0 |
if ($attr eq 'Active') |
|
312
|
0 |
0 |
if ($attr =~ /^mvs_ftpsql_/) |
|
321
|
0 |
0 |
if ($attr eq 'AutoCommit') |
|
322
|
0 |
0 |
if ($attr eq 'ChopBlanks') |
|
323
|
0 |
0 |
if ($attr eq 'Active') |
|
327
|
0 |
0 |
if ($attr =~ /^mvs_ftpsql_/) |
|
338
|
0 |
0 |
if $dbh->FETCH('Active') |
|
378
|
0 |
0 |
if ($attr =~ /^mvs_ftpsql_/) |
|
387
|
0 |
0 |
if ($attr =~ /^mvs_ftpsql_/) |
|
396
|
0 |
0 |
ref $attr ? : |
|
397
|
0 |
0 |
if ($type) |
|
412
|
0 |
0 |
if $sth->FETCH('Active') |
|
413
|
0 |
0 |
@bind_values ? : |
|
417
|
0 |
0 |
if @$params != $numParam |
|
431
|
0 |
0 |
unless my $fh = mvs_ftpsql_execute($$dbh{'mvs_ftpsql_connection'}, $$dbh{'mvs_ftpsql_ssid'}, $$dbh{'mvs_ftpsql_remote_prefix'}, $statement, \$error_message, \$error_state, \$error_code) |
|
451
|
0 |
0 |
unless (exists $$sth{'NAME'}) |
|
466
|
0 |
0 |
$rowcount ? : |
|
472
|
0 |
0 |
unless ($fh) |
|
477
|
0 |
0 |
unless ($tmp) |
|
490
|
0 |
0 |
if ($sth->FETCH('NUM_OF_FIELDS') < $#fields + 1) |
|
512
|
0 |
0 |
if $sth->FETCH('Active') |
|
535
|
0 |
0 |
unless my $fh = 'IO::File'->new_tmpfile |
|
537
|
0 |
0 |
unless $fh->seek(0, 0) |
|
539
|
0 |
0 |
unless $fh->flush |
|
540
|
0 |
0 |
unless $fh->seek(0, 0) |
|
546
|
0 |
0 |
if $ftp_conn->message =~ /($remote_sql_filename_prefix\d{4}) \(unique name\)/ or Carp::croak('Cannot determine the remote sql filename.') |
|
552
|
0 |
0 |
unless $fh->truncate(0) |
|
569
|
0 |
0 |
if ($transfer_msg =~ m[Transfer aborted: SQL PREPARE/DESCRIBE failure]) { } |
|
|
0 |
0 |
elsif ($transfer_msg =~ /Transfer aborted: (.*)/) { } |
|
|
0 |
0 |
elsif ($warnmsg ne '') { } |
|
570
|
0 |
0 |
unless $fh->flush |
|
571
|
0 |
0 |
unless $fh->seek(0, 0) |
|
579
|
0 |
0 |
if $$error_message =~ /SQLSTATE\s+=\s+(\d+)/ |
|
580
|
0 |
0 |
if $$error_message =~ /SQLCODE\s+=\s+([\-0-9]+)/ |
|
594
|
0 |
0 |
unless $fh->seek(0, 0) |
|
597
|
0 |
0 |
unless $fh->flush |