Branch Coverage

blib/lib/SQL/Interpol.pm
Criterion Covered Total %
branch 60 68 88.2


line true false branch
44 0 0 defined $prev ? :
53 23 141 if ('SQL::Interpol' eq $type)
58 73 68 if (not $type) { }
8 60 elsif ($sql =~ s/(\s*${\undef;}\s+(NOT\s+)?IN)\s*$//io) { }
10 50 elsif ($sql =~ /\b(REPLACE|INSERT)[\w\s]*\sINTO\s*${\undef;}\s*$/io) { }
14 36 elsif ('SCALAR' eq $type) { }
10 26 elsif ('HASH' eq $type) { }
26 0 elsif ('ARRAY' eq $type) { }
63 1 0 'REF' eq $type && 'ARRAY' eq ref $$item ? :
6 1 'ARRAY' eq $type ? :
1 7 'SCALAR' eq $type ? :
68 1 2 $2 ? :
5 3 @value ? :
74 3 0 'HASH' eq $type ? :
5 3 'ARRAY' eq $type ? :
2 8 'SCALAR' eq $type ? :
81 8 2 @value ? :
89 2 8 if ($sql =~ /\b(?:ON\s+DUPLICATE\s+KEY\s+UPDATE|SET)\s*$/i) { }
1 7 elsif (not keys %$item) { }
90 0 2 unless keys %$item
104 6 3 'ARRAY' ne ref $eval ? :
1 9 !defined($eval) ? :
105 2 1 @$eval ? :
111 3 3 if keys %$item > 1
116 1 25 unless @$item
124 15 10 if ('ARRAY' eq $type0) { }
10 0 elsif ('HASH' eq $type0) { }
125 2 13 unless @$row0
131 2 8 unless keys %$row0
143 14 7 if $do_alias
147 0 135 unless defined $append
148 50 85 if $sql =~ /\S/ and not $append =~ /\A\s/
160 1 73 unless { => 1, ARRAY => 1, SCALAR => 1, SQL::Interpol => 1}->{$type}
161 13 60 $type ? :