Branch Coverage

blib/lib/App/Framework/Feature/Sql.pm
Criterion Covered Total %
branch 0 146 0.0


line true false branch
407 0 0 if $val
409 0 0 if (keys %priority)
414 0 0 if ($this->database and $this->host)
421 0 0 if keys %args
450 0 0 if %args
480 0 0 if (ref $prepare_href eq 'HASH')
509 0 0 if (@args)
538 0 0 if (@args)
571 0 0 unless $this->database
572 0 0 unless $this->host
581 0 0 unless $dbh = 'DBI'->connect('DBI:mysql:database=' . $this->database . ';host=' . $this->host, $this->user, $this->password, {'RaiseError', 1})
588 0 0 if ($@)
618 0 0 if ($dbh)
623 0 0 if ($@)
729 0 0 if (ref $spec eq 'HASH') { }
0 0 elsif (not ref $spec) { }
734 0 0 if exists $spec{'table'}
737 0 0 if exists $spec{'cmd'}
741 0 0 unless $cmd
769 0 0 if ($this->debug)
780 0 0 unless $dbh
787 0 0 if $@
817 0 0 if ($sth_href)
826 0 0 if (ref $arg eq 'SCALAR') { }
0 0 elsif (ref $arg eq 'HASH') { }
0 0 elsif (not ref $arg) { }
834 0 0 if ($$arg{'type'} eq 'HASH') { }
0 0 elsif ($$arg{'type'} eq 'ARRAY') { }
861 0 0 if ($@)
864 0 0 if $@
960 0 0 if ($@)
962 0 0 if $@
1047 0 0 if ($datestr =~ /(\d{2})\-(\d{2})\-(\d{4})/) { }
1080 0 0 if ($sqldate =~ /(\d{4})\-(\d{2})\-(\d{2})/) { }
1112 0 0 if ($sqldate =~ /(\d{4})\-(\d{2})\-(\d{2})/) { }
1145 0 0 unless $app
1150 0 0 if ($sql_text) { }
1187 0 0 if ($name =~ /^$match/i)
1218 0 0 if (exists $CMD_SQL{$context})
1224 0 0 if exists $CMD_SQL{$context}{'prefix'}
1227 0 0 if exists $CMD_SQL{$context}{$name}
1231 0 0 if exists $CMD_SQL{$context}{'vals'}
1237 0 0 if (ref $spec eq 'HASH') { }
0 0 elsif (not ref $spec) { }
1244 0 0 if (exists $spec{'vars'})
1251 0 0 if (ref $vars_aref eq 'ARRAY')
1260 0 0 if $setlist
1263 0 0 if $andlist
1266 0 0 if $varlist
1283 0 0 if (exists $spec{'vals'})
1292 0 0 if ($vals_ref)
1303 0 0 if (ref $vals_ref eq 'ARRAY') { }
0 0 elsif (ref $vals_ref eq 'HASH') { }
1336 0 0 if (exists $spec{'sql'})
1370 0 0 if ($format and $prefix)
1373 0 0 unless ($format =~ /^\s*$context/i)
1408 0 0 if ref $$vars_href{$var}
1411 0 0 unless $$vars_href{$var}
1429 0 0 if (defined $$vars_href{$1}) { }
1469 0 0 unless $var =~ /^\@/
1472 0 0 if ref $$vars_href{$var} eq 'ARRAY'
1498 0 0 unless (ref $$vars_href{$array} eq 'ARRAY')
1500 0 0 if ($$vars_href{$array})
1516 0 0 if ($arr =~ /^\@/) { }
1524 0 0 if $arr_aref
1557 0 0 unless ($name)
1559 0 0 if $this->debug
1560 0 0 unless $name
1564 0 0 if (exists $$sth_href{$name}) { }
1569 0 0 unless $sth_href
1597 0 0 if ($sth_href and exists $$sth_href{'sth'}) { }
1601 0 0 unless $sth
1625 0 0 if ($dbh)