Branch Coverage

blib/lib/HDB/CMDS.pm
Criterion Covered Total %
branch 0 312 0.0


line true false branch
135 0 0 if ($_[0] =~ /^table$/i) { }
0 0 elsif ($#_ >= 2 and $#_ <= 3 and ref $_[2] || $_[2] =~ /^(?:(?:n|names?|c|cols?|columns?)\s*[,;]*\s*)?(?:\$?[\$\@\%]{1,2}|<[\$\@\%]>)$/i) { }
0 0 elsif ($#_ == 1 and $_[1] =~ /^(?:(?:n|names?|c|cols?|columns?)\s*[,;]*\s*)?(?:\$?[\$\@\%]{1,2}|<[\$\@\%]>)$/i) { }
137 0 0 if (ref $_[2]) { }
0 0 elsif ($#_ == 2) { }
145 0 0 if ($#_ >= 2 and $where =~ /^(?:cache|col|cols|grop|group|limit|limite|order|r|ret|return|sort|table|w|where)$/is)
153 0 0 unless defined $args{'table'}
154 0 0 unless defined $args{'where'}
158 0 0 unless (defined $args{'return'})
159 0 0 if ($_[-1] =~ /^(?:(?:n|names?|c|cols?|columns?)\s*[,;]*\s*)?(?:\$?[\$\@\%]{1,2}|<[\$\@\%]>)$/i)
169 0 0 if ($args{'col'} =~ /^\s*([<>])\s*([\w\.]+)/) { }
175 0 0 if ($db_max) { }
0 0 elsif ($cols eq '') { }
176 0 0 if ($db_max eq '>') { }
0 0 elsif ($db_max eq '<') { }
178 0 0 if ($cols eq '') { }
190 0 0 if ($args{'group'})
194 0 0 if ($args{'sort'})
197 0 0 if ($args{'sort'} =~ /
202 0 0 if ($args{'limit'} ne '')
206 0 0 if ($into_where)
210 0 0 if $where ne ''
211 0 0 if $group ne ''
212 0 0 if $sort ne ''
213 0 0 if $limit ne ''
225 0 0 if $@
241 0 0 if ($#_ == 1)
243 0 0 unless $table
244 0 0 unless @up
249 0 0 if (ref $_[1] eq 'HASH') { }
254 0 0 if (defined $up{$names_i}) { }
0 0 elsif (defined $up{uc $names_i}) { }
0 0 elsif (defined $up{lc $names_i}) { }
0 0 elsif (defined $up{"\u\L$names_i\E"}) { }
263 0 0 if (ref $up_i eq 'HASH') { }
0 0 elsif (ref $up_i eq 'ARRAY') { }
279 0 0 if $$this{'SQL'}{'LOCK_TABLE'}
281 0 0 if $$this{'SQL'}{'LOCK_TABLE'}
287 0 0 if $@
289 0 0 if $this->can('ON_INSERT')
304 0 0 if ($#_ == 2)
306 0 0 unless ($table)
307 0 0 unless (%up)
316 0 0 if (defined $up{$names_i}) { }
0 0 elsif (defined $up{uc $names_i}) { }
0 0 elsif (defined $up{lc $names_i}) { }
0 0 elsif (defined $up{"\u\L$names_i\E"}) { }
322 0 0 unless @up
325 0 0 if (ref $up_i eq 'HASH') { }
0 0 elsif (ref $up_i eq 'ARRAY') { }
338 0 0 if $$this{'SQL'}{'LOCK_TABLE'}
340 0 0 if $$this{'SQL'}{'LOCK_TABLE'}
345 0 0 if $@
359 0 0 unless ($table)
366 0 0 if $$this{'SQL'}{'LOCK_TABLE'}
368 0 0 if $$this{'SQL'}{'LOCK_TABLE'}
371 0 0 if $@
385 0 0 if ($#_ == 1)
387 0 0 unless ($table)
388 0 0 unless (@cols)
391 0 0 if ($tables{"\L$table\E"})
399 0 0 if (ref $name) { }
406 0 0 if ($name =~ /^\s*\*/)
413 0 0 if ($is_primary)
419 0 0 if (ref $_[1] eq 'HASH')
421 0 0 unless ($cols{'id'})
424 0 0 unless ($cols{'id'} =~ /PRIMARY[\s_-]*KEY/is)
431 0 0 if (++$c > 1)
439 0 0 if $@
441 0 0 if $this->can('ON_CREATE')
463 0 0 if $@
478 0 0 if (not $table) { }
0 0 elsif ($$this{'CACHE'}{'names'}{$table}) { }
481 0 0 if ($$this{'SQL'}{'SHOW'}) { }
0 0 elsif ($$this{'SQL'}{'LIMIT'}) { }
491 0 0 if $@
495 0 0 if ($$this{'SQL'}{'SHOW'}) { }
506 0 0 unless @names
508 0 0 if ($$this{'cache'})
545 0 0 if $tables{$_[1]}
557 0 0 unless ($table)
572 0 0 unless ($table)
575 0 0 unless ($tables{"\L$table\E"})
581 0 0 if $@
583 0 0 if $this->can('ON_DROP')
598 0 0 unless ($table)
626 0 0 unless ($_[0]{'CACHE'})
629 0 0 if $sth_i
643 0 0 unless ($$this{'CACHE'})
651 0 0 if $sth_i
720 0 0 if ($_[0]{'sth'})
737 0 0 if ($return =~ /^(?:n|c)/is)
742 0 0 unless ($return =~ /^(?:\$?[\$\@\%]{1,2}|<[\$\@\%]>)$/)
748 0 0 unless $sth
750 0 0 if ($return =~ /<\s*([\$\@\%])\s*>\s*$/)
758 0 0 if ($return =~ /\@$/) { }
0 0 elsif ($return =~ /\%$/) { }
768 0 0 unless (@names)
775 0 0 if (&HDB::Encode::Is_Packed_HASH($ref_i)) { }
0 0 elsif (&HDB::Encode::Is_Packed_ARRAY($ref_i)) { }
778 0 0 if ($ret_type == 1) { }
0 0 elsif ($ret_type == 2) { }
791 0 0 if ($ret_names)
793 0 0 if ($return =~ /^[\@\%\$]$/) { }
0 0 elsif ($return =~ /^\$\$$/) { }
0 0 elsif ($return =~ /^\$\@$/) { }
0 0 elsif ($return =~ /^\$\%$/) { }
0 0 elsif ($return =~ /^\$\$\@$/) { }
0 0 elsif ($return =~ /^\@[\@\%\$]$/) { }
794 0 0 if (wantarray) { }
801 0 0 if (ref @{$rows[0];}[0] eq 'HASH') { }
0 0 elsif (ref @{$rows[0];}[0] eq 'ARRAY') { }
828 0 0 if ($type =~ /^(?:\*|)$/s)
833 0 0 if ($type eq 'TEXT' or $type =~ /^(?:TEXT\s*)?(\d+|\(\s*\d+\s*\))$/s)
835 0 0 if $sz eq ''
837 0 0 if (not $this->Accept_Type('TEXT')) { }
839 0 0 if ($sz == 0) { }
0 0 elsif ($sz <= 255) { }
0 0 elsif ($sz <= 65535) { }
0 0 elsif ($sz <= 16777215) { }
0 0 elsif ($sz <= 4294967295) { }
844 0 0 unless ($this->Accept_Type($type))
850 0 0 if ($type =~ /^(?:INTEGER|INT)\s*(?:\(?([\+\-]?\d+|\w+)\)?|)$/is) { }
0 0 elsif ($type =~ /^(\s*[\+\-]\s*(?:FLOATING|FLOAT|DOUBLE))\s*(?:\((.*?)\)|())$/is) { }
0 0 elsif ($type =~ /\w+INT$/is) { }
0 0 elsif ($type =~ /^(?:boolean|boo?l)$/is) { }
0 0 elsif ($type =~ /^(?:AUTOINCREMENT|AUTO)$/is) { }
0 0 elsif ($type =~ /^(?:DEFAULT|DEF)$/is) { }
853 0 0 if (not $this->Accept_Type('INTEGER')) { }
855 0 0 if (not $sz) { }
0 0 elsif ($sz =~ /^(?:t|tin|shor)/i) { }
0 0 elsif ($sz =~ /^(?:s|sma)/i) { }
0 0 elsif ($sz =~ /^(?:m|med)/i) { }
0 0 elsif ($sz =~ /^(?:b|big)/i) { }
0 0 elsif ($sz =~ /^[\+\-]?\d+$/) { }
861 0 0 if ($sz >= -127 and $sz <= 127) { }
0 0 elsif ($sz >= -32768 and $sz <= 32767) { }
0 0 elsif ($sz >= -8388608 and $sz <= 8388607) { }
0 0 elsif ($sz >= -2147483648 and $sz <= 2147483647) { }
0 0 elsif ($sz < -2147483648 or $sz > 2147483647) { }
867 0 0 unless ($this->Accept_Type($type))
880 0 0 unless ($this->Accept_Type($type))
900 0 0 if ($$this{'SQL'}{'TYPES_MASK'} and $$this{'SQL'}{'TYPES_MASK'}{$type})
919 0 0 unless ($type =~ /$primarykey_re/is)
932 0 0 if (ref $$this{'SQL'}{'TYPES'} eq 'ARRAY')
937 0 0 if ($$this{'SQL'}{'TYPES'}{$type} or $$this{'SQL'}{'TYPES'}{'*'})
957 0 0 if ($$this{'type'} eq '$') { }
0 0 elsif ($$this{'type'} eq '@') { }
0 0 elsif ($$this{'type'} eq '%') { }
958 0 0 unless $ref
962 0 0 unless $ref
966 0 0 if (&HDB::Encode::Is_Packed_HASH($ref_i)) { }
0 0 elsif (&HDB::Encode::Is_Packed_ARRAY($ref_i)) { }
972 0 0 unless $ref
976 0 0 if (&HDB::Encode::Is_Packed_HASH($$ref{$Key})) { }
0 0 elsif (&HDB::Encode::Is_Packed_ARRAY($$ref{$Key})) { }