| line |
true |
false |
branch |
|
54
|
0 |
0 |
unless defined $dsn |
|
58
|
0 |
0 |
if ($dsn =~ /([^:;]*)[:;](.*)/) { } |
|
66
|
0 |
0 |
if ($val =~ /([^=]*)=(.*)/) { } |
|
69
|
0 |
0 |
if ($var eq 'hostname' or $var eq 'host') { } |
|
|
0 |
0 |
elsif ($var eq 'db' or $var eq 'dbname') { } |
|
81
|
0 |
0 |
unless (defined $$hash{$var}) |
|
123
|
0 |
0 |
if ($@) |
|
148
|
0 |
0 |
if (not defined $s) { } |
|
180
|
0 |
0 |
$version >= 80100 ? : |
|
187
|
0 |
0 |
if $statement =~ /\0/ |
|
209
|
0 |
0 |
if ($@) |
|
223
|
0 |
0 |
if ($@) |
|
233
|
0 |
0 |
if (my $conn = $dbh->FETCH('pgpp_connection')) |
|
244
|
0 |
0 |
if $key =~ /^pgpp_/ |
|
245
|
0 |
0 |
if $key eq 'AutoCommit' |
|
252
|
0 |
0 |
if ($key eq 'AutoCommit') |
|
257
|
0 |
0 |
if (not $old and $new and $never_set) { } |
|
|
0 |
0 |
elsif (not $old and $new) { } |
|
|
0 |
0 |
elsif ($old and not $new or not $old || $new and $never_set) { } |
|
282
|
0 |
0 |
if ($key =~ /^pgpp_/) |
|
297
|
0 |
0 |
if (not defined $attr) { } |
|
|
0 |
0 |
elsif (not ref $attr and $attr ne '') { } |
|
|
0 |
0 |
elsif (ref $attr ne 'HASH') { } |
|
309
|
0 |
0 |
unless defined $schema |
|
310
|
0 |
0 |
unless defined $table |
|
313
|
0 |
0 |
exists $$attr{'pgpp_cache'} ? : |
|
320
|
0 |
0 |
if (defined $$attr{'sequence'}) { } |
|
|
0 |
0 |
elsif ($use_cache and exists $$db{'pgpp_liicache'}{$cache_key}) { } |
|
329
|
0 |
0 |
if $table eq '' |
|
336
|
0 |
0 |
if ($$pgsql{'server_version_num'} < 70300) { } |
|
346
|
0 |
0 |
if (length $schema) |
|
358
|
0 |
0 |
unless (defined $count) |
|
361
|
0 |
0 |
if $schema ne '' |
|
381
|
0 |
0 |
unless (defined $count) |
|
391
|
0 |
0 |
unless my($seq) = $$_[2] =~ /^nextval\('([^']+)'::/ |
|
395
|
0 |
0 |
unless @def |
|
399
|
0 |
0 |
if (@def > 1) |
|
401
|
0 |
0 |
if @pri != 1 |
|
428
|
0 |
0 |
ref $attr ? : |
|
438
|
0 |
0 |
if $$pgsql{'closed'} |
|
442
|
0 |
0 |
if (@args) { } |
|
443
|
0 |
0 |
if @args != $num_params |
|
450
|
0 |
0 |
if @$bind_params != $num_params |
|
458
|
0 |
0 |
ref $_ ? : |
|
468
|
0 |
0 |
if (defined $$pgsql_sth{'affected_rows'}) { } |
|
476
|
0 |
0 |
if (not $$pgsql_sth{'row_description'}) { } |
|
485
|
0 |
0 |
if ($@) |
|
490
|
0 |
0 |
$result ? : |
|
|
0 |
0 |
$pgsql->has_error ? : |
|
499
|
0 |
0 |
if $$iterator{'finished'} |
|
501
|
0 |
0 |
if (my $row = $iterator->fetch) |
|
502
|
0 |
0 |
if ($sth->FETCH('ChopBlanks')) |
|
515
|
0 |
0 |
defined $$sth{'pgpp_rows'} ? : |
|
522
|
0 |
0 |
if $key eq 'NAME' |
|
523
|
0 |
0 |
if $key =~ /^pgpp_/ |
|
530
|
0 |
0 |
if ($key eq 'NAME') { } |
|
|
0 |
0 |
elsif ($key =~ /^pgpp_/) { } |
|
|
0 |
0 |
elsif ($key eq 'NUM_OF_FIELDS') { } |
|
542
|
0 |
0 |
if $curr and $curr == $value |
|
587
|
0 |
0 |
if $args{'debug'} |
|
594
|
0 |
0 |
unless my $socket = $$self{'socket'} |
|
595
|
0 |
0 |
unless fileno $socket |
|
598
|
0 |
0 |
if $DEBUG |
|
607
|
0 |
0 |
if $self |
|
621
|
0 |
0 |
if ($$self{'hostname'}) { } |
|
622
|
0 |
0 |
unless $sock = 'IO::Socket::INET'->new('PeerAddr', $$self{'hostname'}, 'PeerPort', $$self{'port'}, 'Proto', 'tcp', 'Timeout', $$self{'timeout'}) |
|
631
|
0 |
0 |
unless $sock = 'IO::Socket::UNIX'->new('Type', 1, 'Peer', $path) |
|
659
|
0 |
0 |
if $DEBUG |
|
677
|
0 |
0 |
if (my($ver) = $id =~ /\A PostgreSQL \s+ ([0-9._]+) (?:\s|\z)/x) |
|
679
|
0 |
0 |
if (my($maj, $min, $sub) = $ver =~ /\A ([0-9]+)\.([0-9]{1,2})\.([0-9]{1,2}) \z/x) |
|
688
|
0 |
0 |
unless $DBD::PgPP::Protocol::DEBUG |
|
698
|
0 |
0 |
/[[:graph:] ]/ ? : |
|
706
|
0 |
0 |
unless defined $$self{'stream'} |
|
716
|
0 |
0 |
if $packet->is_end_of_response |
|
717
|
0 |
0 |
if $packet->is_error |
|
731
|
0 |
0 |
if $$self{'error_message'} |
|
747
|
19 |
141 |
if (/\G \z/cgmsx) { } |
|
|
7 |
134 |
elsif (m[\G( /\* .*? ) (?= /\* | \*/) ]cgmsx) { } |
|
|
10 |
124 |
elsif ($comment_depth and m[\G( .*? ) (?= /\* | \*/)]cgmsx) { } |
|
|
3 |
121 |
elsif ($comment_depth and m[\G( \*/ )]cgmsx) { } |
|
|
16 |
105 |
elsif (/\G \?/cgmsx) { } |
|
|
1 |
104 |
elsif (/\G( -- [^\n]* )/cgmsx) { } |
|
|
11 |
93 |
elsif (/\G( \' (?> [^\\\']* (?> \\. [^\\\']*)* ) \' )/cgmsx) { } |
|
|
2 |
91 |
elsif (/\G( \" [^\"]* \" )/cgmsx) { } |
|
|
57 |
34 |
elsif (m[\G( \s+ | \w+ | ::? | \$[0-9]+ | [-/*\$]
| [^[:ascii:]]+ | [\0-\037\177]+)]cgmsx) { } |
|
|
24 |
10 |
elsif (/\G( [+<>=~!\@\#%^&|`,;.()\[\]{}]+ )/cgmsx) { } |
|
|
10 |
0 |
elsif (/\G( [\'\"\\] )/cgmsx) { } |
|
752
|
6 |
10 |
if $tokens[-1] eq '' |
|
772
|
4 |
15 |
if @tokens > 1 and $tokens[-1] eq '' |
|
796
|
0 |
0 |
if $DEBUG |
|
805
|
0 |
0 |
if ($packet->is_error) { } |
|
|
0 |
0 |
elsif ($packet->is_end_of_response) { } |
|
|
0 |
0 |
elsif ($packet->is_empty) { } |
|
820
|
0 |
0 |
if ($packet->is_cursor_response) { } |
|
823
|
0 |
0 |
if ($row_info->is_error) |
|
830
|
0 |
0 |
if ($row_packet->is_error) |
|
836
|
0 |
0 |
if $row_packet->is_end_of_response |
|
844
|
0 |
0 |
if ($end->is_error) |
|
848
|
0 |
0 |
if $end->is_end_of_response |
|
860
|
0 |
0 |
if $packet->is_end_of_response |
|
917
|
0 |
0 |
$type eq 'T' ? : |
|
|
0 |
0 |
$type eq 'Z' ? : |
|
|
0 |
0 |
$type eq 'A' ? : |
|
|
0 |
0 |
$type eq 'N' ? : |
|
|
0 |
0 |
$type eq 'V' ? : |
|
|
0 |
0 |
$type eq 'E' ? : |
|
|
0 |
0 |
$type eq 'I' ? : |
|
|
0 |
0 |
$type eq 'P' ? : |
|
|
0 |
0 |
$type eq 'H' ? : |
|
|
0 |
0 |
$type eq 'G' ? : |
|
|
0 |
0 |
$type eq 'C' ? : |
|
|
0 |
0 |
$type eq 'B' ? : |
|
|
0 |
0 |
$type eq 'K' ? : |
|
|
0 |
0 |
$type eq 'R' ? : |
|
|
0 |
0 |
$type eq 'D' ? : |
|
933
|
0 |
0 |
if ($DEBUG) |
|
944
|
0 |
0 |
if ($code == 0) { } |
|
|
0 |
0 |
elsif ($code == 1) { } |
|
|
0 |
0 |
elsif ($code == 2) { } |
|
|
0 |
0 |
elsif ($code == 3) { } |
|
|
0 |
0 |
elsif ($code == 4) { } |
|
|
0 |
0 |
elsif ($code == 5) { } |
|
|
0 |
0 |
elsif ($code == 6) { } |
|
1043
|
0 |
0 |
unless defined $length |
|
1067
|
0 |
0 |
if $null_pos >= 0 |
|
1133
|
0 |
0 |
if $DEBUG |
|
1158
|
0 |
0 |
if $DEBUG |
|
1169
|
0 |
0 |
if _is_md5_crypt($crypted, $salt) |
|
1171
|
0 |
0 |
if $@ |
|
1199
|
0 |
0 |
if $DEBUG |
|
1345
|
0 |
0 |
if (substr $non_null, $i, 1) |
|
1349
|
0 |
0 |
if ($type_oid == 16) { } |
|
|
0 |
0 |
elsif ($type_oid == 17) { } |
|
1350
|
0 |
0 |
$value eq 'f' ? : |
|
1366
|
0 |
0 |
if $number % 8 |
|
1390
|
0 |
0 |
if ($tag =~ /^INSERT (\d+) (\d+)/) { } |
|
|
0 |
0 |
elsif ($tag =~ /^DELETE (\d+)/) { } |
|
|
0 |
0 |
elsif ($tag =~ /^UPDATE (\d+)/) { } |