line |
true |
false |
branch |
3
|
0 |
1 |
if $] < 5.006 |
46
|
0 |
0 |
unless defined $dsn |
50
|
0 |
0 |
if ($dsn =~ /([^:;]*)[:;](.*)/) { } |
58
|
0 |
0 |
if ($val =~ /([^=]*)=(.*)/) { } |
61
|
0 |
0 |
if ($var eq 'hostname' or $var eq 'host') { } |
|
0 |
0 |
elsif ($var eq 'db' or $var eq 'dbname') { } |
73
|
0 |
0 |
unless (defined $hash->{$var}) |
120
|
0 |
0 |
if ($@) |
147
|
0 |
0 |
if (not defined $s) { } |
198
|
0 |
0 |
$version >= 80100 ? : |
205
|
0 |
0 |
if $statement =~ /\0/ |
227
|
0 |
0 |
if ($@) |
241
|
0 |
0 |
if ($@) |
251
|
0 |
0 |
if (my $conn = $dbh->FETCH('pgppsjis_connection')) |
262
|
0 |
0 |
if $key =~ /^pgppsjis_/ |
263
|
0 |
0 |
if $key eq 'AutoCommit' |
270
|
0 |
0 |
if ($key eq 'AutoCommit') |
275
|
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) { } |
300
|
0 |
0 |
if ($key =~ /^pgppsjis_/) |
315
|
0 |
0 |
if (not defined $attr) { } |
|
0 |
0 |
elsif (not ref $attr and $attr ne '') { } |
|
0 |
0 |
elsif (ref $attr ne 'HASH') { } |
327
|
0 |
0 |
unless defined $schema |
328
|
0 |
0 |
unless defined $table |
331
|
0 |
0 |
exists $attr->{'pgppsjis_cache'} ? : |
338
|
0 |
0 |
if (defined $attr->{'sequence'}) { } |
|
0 |
0 |
elsif ($use_cache and exists $db->{'pgppsjis_liicache'}{$cache_key}) { } |
347
|
0 |
0 |
if $table eq '' |
354
|
0 |
0 |
if ($pgsql->{'server_version_num'} < 70300) { } |
364
|
0 |
0 |
if (length $schema) |
376
|
0 |
0 |
unless (defined $count) |
379
|
0 |
0 |
if $schema ne '' |
399
|
0 |
0 |
unless (defined $count) |
409
|
0 |
0 |
unless my($seq) = $_->[2] =~ /^nextval\('([^']+)'::/ |
413
|
0 |
0 |
unless @def |
417
|
0 |
0 |
if (@def > 1) |
419
|
0 |
0 |
if @pri != 1 |
447
|
0 |
0 |
ref $attr ? : |
457
|
0 |
0 |
if $pgsql->{'closed'} |
461
|
0 |
0 |
if (@args) { } |
462
|
0 |
0 |
if @args != $num_params |
467
|
0 |
0 |
if @$bind_params != $num_params |
476
|
0 |
0 |
ref $_ ? : |
486
|
0 |
0 |
if (defined $pgsql_sth->{'affected_rows'}) { } |
494
|
0 |
0 |
if (not $pgsql_sth->{'row_description'}) { } |
503
|
0 |
0 |
if ($@) |
508
|
0 |
0 |
$result ? : |
|
0 |
0 |
$pgsql->has_error ? : |
517
|
0 |
0 |
if $iterator->{'finished'} |
519
|
0 |
0 |
if (my $row = $iterator->fetch) |
520
|
0 |
0 |
if ($sth->FETCH('ChopBlanks')) |
534
|
0 |
0 |
defined $sth->{'pgppsjis_rows'} ? : |
541
|
0 |
0 |
if $key eq 'NAME' |
542
|
0 |
0 |
if $key =~ /^pgppsjis_/ |
549
|
0 |
0 |
if ($key eq 'NAME') { } |
|
0 |
0 |
elsif ($key =~ /^pgppsjis_/) { } |
|
0 |
0 |
elsif ($key eq 'NUM_OF_FIELDS') { } |
561
|
0 |
0 |
if $curr and $curr == $value |
606
|
0 |
0 |
if $args{'debug'} |
613
|
0 |
0 |
unless my $socket = $self->{'socket'} |
614
|
0 |
0 |
unless fileno $socket |
617
|
0 |
0 |
if $DEBUG |
626
|
0 |
0 |
if $self |
640
|
0 |
0 |
if ($self->{'hostname'}) { } |
646
|
0 |
0 |
unless $sock = 'IO::Socket::INET'->new('PeerAddr', $self->{'hostname'}, 'PeerPort', $self->{'port'}, 'Proto', 'tcp', 'Timeout', $self->{'timeout'}) |
650
|
0 |
0 |
unless $sock = 'IO::Socket::UNIX'->new('Type', 1, 'Peer', $path) |
678
|
0 |
0 |
if $DEBUG |
696
|
0 |
0 |
if (my($ver) = $id =~ /\A PostgreSQL \s+ ([0-9._]+) (?:\s|\z)/x) |
698
|
0 |
0 |
if (my($maj, $min, $sub) = $ver =~ /\A ([0-9]+)\.([0-9]{1,2})\.([0-9]{1,2}) \z/x) |
707
|
0 |
0 |
unless $DBD::PgPPSjis::Protocol::DEBUG or $DBD::PgPPSjis::Protocol::DEBUG |
722
|
0 |
0 |
/[\x20-\x7F]/ ? : |
730
|
0 |
0 |
unless defined $self->{'stream'} |
739
|
0 |
0 |
if $packet->is_end_of_response |
740
|
0 |
0 |
if $packet->is_error |
754
|
0 |
0 |
if $self->{'error_message'} |
774
|
0 |
0 |
if (/\G \z/cgmsx) { } |
|
0 |
0 |
elsif (m[\G( /\* (?:$sjis_mbcs|[\x00-\xFF])*? ) (?= /\* | \*/ ) ]cgmsx) { } |
|
0 |
0 |
elsif ($comment_depth and m[\G( (?:$sjis_mbcs|[\x00-\xFF])*? ) (?= /\* | \*/ )]cgmsx) { } |
|
0 |
0 |
elsif ($comment_depth and m[\G( \*/ )]cgmsx) { } |
|
0 |
0 |
elsif (/\G( ' (?: \\\\ | '' | \\' | \\0 | \\b | \\f | \\n | \\r | \\t | $sjis_mbcs | [^'] )* ' )/cgmsx) { } |
|
0 |
0 |
elsif (/\G( ' )/cgmsx) { } |
|
0 |
0 |
elsif (/\G( \\ )/cgmsx) { } |
|
0 |
0 |
elsif (/\G( " (?: "" | ${sjis_leading_byte}[^\x00] | [^\x00"] )* " )/cgmsx) { } |
|
0 |
0 |
elsif (/\G( " )/cgmsx) { } |
|
0 |
0 |
elsif (/\G( -- (?:$sjis_mbcs|[^\n])* )/cgmsx) { } |
|
0 |
0 |
elsif (/\G \?/cgmsx) { } |
|
0 |
0 |
elsif (m[\G( [\t\n\f\r\x20]+ | [_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0-9]+ | ::? | \$[0-9]+ | [-/*\$] | (?:$sjis_mbcs|[\x80\xA0-\xDF\xFD-\xFF])+ | [\0-\037\177]+ )]cgmsx) { } |
|
0 |
0 |
elsif (/\G( [+<>=~!\@\#%^&|`,;.()\[\]{}]+ )/cgmsx) { } |
809
|
0 |
0 |
if $tokens[-1] eq '' |
833
|
0 |
0 |
if @tokens > 1 and $tokens[-1] eq '' |
857
|
0 |
0 |
if $DEBUG |
866
|
0 |
0 |
if ($packet->is_error) { } |
|
0 |
0 |
elsif ($packet->is_end_of_response) { } |
|
0 |
0 |
elsif ($packet->is_empty) { } |
881
|
0 |
0 |
if ($packet->is_cursor_response) { } |
884
|
0 |
0 |
if ($row_info->is_error) |
891
|
0 |
0 |
if ($row_packet->is_error) |
897
|
0 |
0 |
if $row_packet->is_end_of_response |
905
|
0 |
0 |
if ($end->is_error) |
909
|
0 |
0 |
if $end->is_end_of_response |
921
|
0 |
0 |
if $packet->is_end_of_response |
978
|
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' ? : |
994
|
0 |
0 |
if ($DEBUG) |
1005
|
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) { } |
1104
|
0 |
0 |
unless defined $length |
1128
|
0 |
0 |
if $null_pos >= 0 |
1194
|
0 |
0 |
if $DEBUG |
1219
|
0 |
0 |
if $DEBUG |
1230
|
0 |
0 |
if _is_md5_crypt($crypted, $salt) |
1232
|
0 |
0 |
if $@ |
1260
|
0 |
0 |
if $DEBUG |
1275
|
0 |
0 |
if ($@) |
1416
|
0 |
0 |
if (substr $non_null, $i, 1) |
1420
|
0 |
0 |
if ($type_oid == 16) { } |
|
0 |
0 |
elsif ($type_oid == 17) { } |
1421
|
0 |
0 |
$value eq 'f' ? : |
1437
|
0 |
0 |
if $number % 8 |
1463
|
0 |
0 |
if ($tag =~ /^INSERT ([0-9]+) ([0-9]+)/) { } |
|
0 |
0 |
elsif ($tag =~ /^DELETE ([0-9]+)/) { } |
|
0 |
0 |
elsif ($tag =~ /^UPDATE ([0-9]+)/) { } |
1522
|
0 |
0 |
if $r < 64 and not $p++ |
1524
|
0 |
0 |
if $r < 57 |