Branch Coverage

blib/lib/Perinci/Sub/Gen/AccessTable/DBI.pm
Criterion Covered Total %
branch 53 76 69.7


line true false branch
78 0 6 unless $table_name
80 0 6 unless $dbh
93 0 80 unless ($db =~ /\A(SQLite|mysql|Pg)\z/)
99 318 0 if ($db =~ /SQLite|mysql/)
107 0 480 unless not defined $fspecs->{$_}{'searchable'}
113 2 78 if (defined $q and @searchable_fields)
120 0 80 if ($args{'custom_search'})
123 0 80 if ($args{'custom_filter'})
130 5 19 if ($op eq 'truth') { }
0 19 elsif ($op eq '~~') { }
0 19 elsif ($op eq '!~~') { }
0 19 elsif ($op eq 'eq') { }
6 13 elsif ($op eq '==') { }
0 13 elsif ($op eq 'ne') { }
0 13 elsif ($op eq '!=') { }
0 13 elsif ($op eq 'ge') { }
4 9 elsif ($op eq '>=') { }
0 9 elsif ($op eq 'gt') { }
1 8 elsif ($op eq '>') { }
0 8 elsif ($op eq 'le') { }
3 5 elsif ($op eq '<=') { }
0 5 elsif ($op eq 'lt') { }
1 4 elsif ($op eq '<') { }
1 3 elsif ($op eq '=~') { }
1 2 elsif ($op eq '!~') { }
1 1 elsif ($op eq 'pos') { }
1 0 elsif ($op eq '!pos') { }
0 0 elsif ($op eq 'call') { }
158 50 30 if ($query->{'random'}) { }
5 25 elsif (@{$query->{'sorts'};}) { }
163 2 4 $desc == -1 ? :
172 2 78 if (defined $ql or $qs > 0)
173 0 0 $db eq 'Pg' ? :
0 1 $db eq 'mysql' ? :
1 1 $qs > 1 ? :
185 18 62 @wheres ? :
55 25 @orders ? :
194 0 80 unless $sth->execute