Branch Coverage

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


line true false branch
74 0 6 unless $table_name
76 0 6 unless $dbh
89 0 80 unless ($db =~ /\A(SQLite|mysql|Pg)\z/)
95 318 0 if ($db =~ /SQLite|mysql/)
101 0 480 unless not defined $$fspecs{$_}{'searchable'}
109 2 78 if (defined $q and @searchable_fields)
116 0 80 if ($args{'custom_search'})
119 0 80 if ($args{'custom_filter'})
126 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') { }
154 50 30 if ($$query{'random'}) { }
5 25 elsif (@{$$query{'sorts'};}) { }
159 2 4 $desc == -1 ? :
168 2 78 if (defined $ql or $qs > 0)
169 0 0 $db eq 'Pg' ? :
0 1 $db eq 'mysql' ? :
1 1 $qs > 1 ? :
181 18 62 @wheres ? :
55 25 @orders ? :
190 0 80 unless $sth->execute