Branch Coverage

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


line true false branch
45 0 0 defined $prev ? :
54 23 141 if ('SQL::Interpol' eq $type)
59 73 68 if (not $type) { }
8 60 elsif ($sql =~ s/(\s*$IDENT\s+(NOT\s+)?IN)\s*$//io) { }
10 50 elsif ($sql =~ /\b(REPLACE|INSERT)[\w\s]*\sINTO\s*$IDENT\s*$/io) { }
14 36 elsif ('SCALAR' eq $type) { }
10 26 elsif ('HASH' eq $type) { }
26 0 elsif ('ARRAY' eq $type) { }
64 1 0 'REF' eq $type && 'ARRAY' eq ref $$item ? :
6 1 'ARRAY' eq $type ? :
1 7 'SCALAR' eq $type ? :
69 1 2 $2 ? :
5 3 @value ? :
75 3 0 'HASH' eq $type ? :
5 3 'ARRAY' eq $type ? :
2 8 'SCALAR' eq $type ? :
82 8 2 @value ? :
90 2 8 if ($sql =~ /\b(?:ON\s+DUPLICATE\s+KEY\s+UPDATE|SET)\s*$/i) { }
1 7 elsif (not keys %$item) { }
91 0 2 unless keys %$item
105 6 3 'ARRAY' ne ref $eval ? :
1 9 !defined($eval) ? :
106 2 1 @$eval ? :
112 3 3 if keys %$item > 1
117 1 25 unless @$item
125 15 10 if ('ARRAY' eq $type0) { }
10 0 elsif ('HASH' eq $type0) { }
126 2 13 unless @$row0
132 2 8 unless keys %$row0
144 14 7 if $do_alias
148 0 135 unless defined $append
149 50 85 if $sql =~ /\S/ and not $append =~ /\A\s/
161 1 73 unless { => 1, ARRAY => 1, SCALAR => 1, SQL::Interpol => 1}->{$type}
162 13 60 $type ? :