| 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 |