Branch Coverage

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


line true false branch
63 0 6 unless $table_name
65 0 6 unless $dbh
78 0 80 unless ($db =~ /\A(SQLite|mysql|Pg)\z/)
84 318 0 if ($db =~ /SQLite|mysql/)
90 0 480 unless not defined $$fspecs{$_}{'searchable'}
98 2 78 if (defined $q and @searchable_fields)
105 0 80 if ($args{'custom_search'})
108 0 80 if ($args{'custom_filter'})
115 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') { }
143 50 30 if ($$query{'random'}) { }
5 25 elsif (@{$$query{'sorts'};}) { }
148 2 4 $desc == -1 ? :
157 2 78 if (defined $ql or $qs > 0)
158 0 0 $db eq 'Pg' ? :
0 1 $db eq 'mysql' ? :
1 1 $qs > 1 ? :
170 18 62 @wheres ? :
55 25 @orders ? :
179 0 80 unless $sth->execute