Branch Coverage

blib/lib/DBD/cubrid.pm
Criterion Covered Total %
branch 13 142 9.1


line true false branch
54 0 26 if $DBD::cubrid::drh
85 26 0 if ($dsn =~ /=/) { }
93 0 79 unless defined $v and defined $n
106 0 26 unless defined $user
110 26 0 if ($connect_attr{'HOST'}) { }
116 26 0 if ($connect_attr{'PORT'}) { }
122 26 0 if ($connect_attr{'DATABASE'}) { }
131 0 26 if ($connect_attr{'ALTHOSTS'})
136 0 26 if ($connect_attr{'RCTIME'})
137 0 0 if ($is_connect_attr) { }
145 0 26 if ($connect_attr{'LOGIN_TIMEOUT'})
146 0 0 if ($is_connect_attr) { }
154 0 26 if ($connect_attr{'QUERY_TIMEOUT'})
155 0 0 if ($is_connect_attr) { }
163 0 26 if ($connect_attr{'DISCONNECT_ON_QUERY_TIMEOUT'})
164 0 0 if ($is_connect_attr) { }
177 26 0 unless DBD::cubrid::db::_login($dbh, $connect_dsn, $user, $passwd, $attrhash)
193 0 0 unless defined $statement
199 0 0 unless DBD::cubrid::st::_prepare($sth, $statement, @attribs)
206 0 0 if $dbh->FETCH('PrintError')
208 0 0 $ret ? :
215 0 0 if ref $v eq 'CODE'
225 0 0 unless my $sponge = 'DBI'->connect('DBI:Sponge:', '', '')
228 0 0 if (defined $catalog and $catalog eq '%' and !defined($schema) || $schema eq '' and !defined($table) || $table eq '') { }
0 0 elsif (defined $schema and $schema eq '%' and !defined($catalog) || $catalog eq '' and !defined($table) || $table eq '') { }
0 0 elsif (defined $type and $type eq '%' and !defined($catalog) || $catalog eq '' and !defined($schema) || $schema eq '' and !defined($table) || $table eq '') { }
252 0 0 unless defined $table
255 0 0 if (defined $type and $type ne '') { }
256 0 0 if ($type =~ /^table$/i or $type =~ /^view$/i or $type =~ /^'table','view'$/i) { }
269 0 0 unless my $sth = $dbh->prepare($sql)
270 0 0 unless $sth->execute
273 0 0 defined $$ref[1] && $$ref[1] =~ /VCLASS/i ? :
275 0 0 if $type eq 'TABLE' and not $want_tables
276 0 0 if $type eq 'VIEW' and not $want_views
281 0 0 unless my $sth = $sponge->prepare('table_info', {'rows', \@rows, 'NUM_OF_FIELDS', scalar @names, 'NAME', \@names})
297 0 0 unless defined $column
320 0 0 unless (defined $type)
324 0 0 $$row{'null'} eq 'YES' ? :
0 0 $$row{'null'} eq 'YES' ? :
336 0 0 if ($type =~ /CHAR/) { }
0 0 elsif ($type =~ /STRING/) { }
0 0 elsif ($type =~ /INT/) { }
0 0 elsif ($type =~ /SHORT/) { }
0 0 elsif ($type =~ /NUMERIC/) { }
0 0 elsif ($type =~ /MONETARY/) { }
0 0 elsif ($type =~ /BLOB/) { }
0 0 elsif ($type =~ /CLOB/) { }
0 0 elsif ($type =~ /FLOAT/) { }
0 0 elsif ($type =~ /DOUBLE/) { }
0 0 elsif ($type =~ /TIME/) { }
0 0 elsif ($type =~ /DATE/) { }
0 0 elsif ($type =~ /BIT/) { }
0 0 elsif ($type =~ /^NULL$/) { }
338 0 0 if $type =~ /^CHAR/
340 0 0 if ($type =~ /\(/) { }
352 0 0 if ($type =~ /\(/) { }
363 0 0 if ($type =~ /BIGINT/) { }
0 0 elsif ($type =~ /SMALLINT/) { }
384 0 0 if ($type =~ /\(/) { }
420 0 0 if ($type =~ /TIMESTAMP|DATETIME/) { }
422 0 0 if $type =~ /^TIMESTAMP/
423 0 0 if $type =~ /^DATETIME/
431 0 0 if ($type =~ /DATETIME/) { }
441 0 0 if ($type =~ /VARYING/) { }
448 0 0 if ($type =~ /\(/) { }
506 0 0 unless my $sponge = 'DBI'->connect('DBI:Sponge:', '', '')
509 0 0 unless my $sth = $sponge->prepare("column_info $table_id", {'rows', \@col_info, 'NUM_OF_FIELDS', scalar @names, 'NAME', \@names})
539 0 0 unless my $sponge = 'DBI'->connect('DBI:Sponge:', '', '')
541 0 0 unless my $sth = $sponge->prepare("primary_key_info $table", {'rows', \@col_info, 'NUM_OF_FIELDS', scalar @names, 'NAME', \@names})
584 0 0 unless my $sponge = 'DBI'->connect('DBI:Sponge:', '', '')
586 0 0 unless my $sth = $sponge->prepare('foreign_key_info', {'rows', \@col_info, 'NUM_OF_FIELDS', scalar @names, 'NAME', \@names})