Branch Coverage

lib/DBD/PgPPSjis.pm

Criterion	Covered	Total	%
branch	0	286	0.0

line	true	false	branch
45	0	0	unless defined $dsn
49	0	0	if ($dsn =~ /([^:;]*)[:;](.*)/) { }
57	0	0	if ($val =~ /([^=]*)=(.*)/) { }
60	0	0	if ($var eq 'hostname' or $var eq 'host') { }
	0	0	elsif ($var eq 'db' or $var eq 'dbname') { }
72	0	0	unless (defined $hash->{$var})
119	0	0	if ($@)
146	0	0	if (not defined $s) { }
197	0	0	$version >= 80100 ? :
204	0	0	if $statement =~ /\0/
226	0	0	if ($@)
240	0	0	if ($@)
250	0	0	if (my $conn = $dbh->FETCH('pgppsjis_connection'))
261	0	0	if $key =~ /^pgppsjis_/
262	0	0	if $key eq 'AutoCommit'
269	0	0	if ($key eq 'AutoCommit')
274	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) { }
299	0	0	if ($key =~ /^pgppsjis_/)
314	0	0	if (not defined $attr) { }
	0	0	elsif (not ref $attr and $attr ne '') { }
	0	0	elsif (ref $attr ne 'HASH') { }
326	0	0	unless defined $schema
327	0	0	unless defined $table
330	0	0	exists $attr->{'pgppsjis_cache'} ? :
337	0	0	if (defined $attr->{'sequence'}) { }
	0	0	elsif ($use_cache and exists $db->{'pgppsjis_liicache'}{$cache_key}) { }
346	0	0	if $table eq ''
353	0	0	if ($pgsql->{'server_version_num'} < 70300) { }
363	0	0	if (length $schema)
375	0	0	unless (defined $count)
378	0	0	if $schema ne ''
398	0	0	unless (defined $count)
408	0	0	unless my($seq) = $_->[2] =~ /^nextval\('([^']+)'::/
412	0	0	unless @def
416	0	0	if (@def > 1)
418	0	0	if @pri != 1
446	0	0	ref $attr ? :
456	0	0	if $pgsql->{'closed'}
460	0	0	if (@args) { }
461	0	0	if @args != $num_params
466	0	0	if @$bind_params != $num_params
475	0	0	ref $_ ? :
485	0	0	if (defined $pgsql_sth->{'affected_rows'}) { }
493	0	0	if (not $pgsql_sth->{'row_description'}) { }
502	0	0	if ($@)
507	0	0	$result ? :
	0	0	$pgsql->has_error ? :
516	0	0	if $iterator->{'finished'}
518	0	0	if (my $row = $iterator->fetch)
519	0	0	if ($sth->FETCH('ChopBlanks'))
533	0	0	defined $sth->{'pgppsjis_rows'} ? :
540	0	0	if $key eq 'NAME'
541	0	0	if $key =~ /^pgppsjis_/
548	0	0	if ($key eq 'NAME') { }
	0	0	elsif ($key =~ /^pgppsjis_/) { }
	0	0	elsif ($key eq 'NUM_OF_FIELDS') { }
560	0	0	if $curr and $curr == $value
605	0	0	if $args{'debug'}
612	0	0	unless my $socket = $self->{'socket'}
613	0	0	unless fileno $socket
616	0	0	if $DEBUG
625	0	0	if $self
639	0	0	if ($self->{'hostname'}) { }
645	0	0	unless $sock = 'IO::Socket::INET'->new('PeerAddr', $self->{'hostname'}, 'PeerPort', $self->{'port'}, 'Proto', 'tcp', 'Timeout', $self->{'timeout'})
649	0	0	unless $sock = 'IO::Socket::UNIX'->new('Type', 1, 'Peer', $path)
677	0	0	if $DEBUG
695	0	0	if (my($ver) = $id =~ /\A PostgreSQL \s+ ([0-9._]+) (?:\s|\z)/x)
697	0	0	if (my($maj, $min, $sub) = $ver =~ /\A ([0-9]+)\.([0-9]{1,2})\.([0-9]{1,2}) \z/x)
706	0	0	unless $DBD::PgPPSjis::Protocol::DEBUG or $DBD::PgPPSjis::Protocol::DEBUG
721	0	0	/[\x20-\x7F]/ ? :
729	0	0	unless defined $self->{'stream'}
738	0	0	if $packet->is_end_of_response
739	0	0	if $packet->is_error
753	0	0	if $self->{'error_message'}
773	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) { }
808	0	0	if $tokens[-1] eq ''
832	0	0	if @tokens > 1 and $tokens[-1] eq ''
856	0	0	if $DEBUG
865	0	0	if ($packet->is_error) { }
	0	0	elsif ($packet->is_end_of_response) { }
	0	0	elsif ($packet->is_empty) { }
880	0	0	if ($packet->is_cursor_response) { }
883	0	0	if ($row_info->is_error)
890	0	0	if ($row_packet->is_error)
896	0	0	if $row_packet->is_end_of_response
904	0	0	if ($end->is_error)
908	0	0	if $end->is_end_of_response
920	0	0	if $packet->is_end_of_response
977	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' ? :
993	0	0	if ($DEBUG)
1004	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) { }
1103	0	0	unless defined $length
1127	0	0	if $null_pos >= 0
1193	0	0	if $DEBUG
1218	0	0	if $DEBUG
1229	0	0	if _is_md5_crypt($crypted, $salt)
1231	0	0	if $@
1259	0	0	if $DEBUG
1274	0	0	if ($@)
1415	0	0	if (substr $non_null, $i, 1)
1419	0	0	if ($type_oid == 16) { }
	0	0	elsif ($type_oid == 17) { }
1420	0	0	$value eq 'f' ? :
1436	0	0	if $number % 8
1462	0	0	if ($tag =~ /^INSERT ([0-9]+) ([0-9]+)/) { }
	0	0	elsif ($tag =~ /^DELETE ([0-9]+)/) { }
	0	0	elsif ($tag =~ /^UPDATE ([0-9]+)/) { }
1521	0	0	if $r < 64 and not $p++
1523	0	0	if $r < 57