Branch Coverage

lib/DBI/Log.pm
Criterion Covered Total %
branch 42 68 61.7


line true false branch
98 0 2 if (not $opts{'file'}) { }
103 0 2 if ($file2 =~ m[^~/])
107 0 2 unless open $opts{'fh'}, ">>", $file2
124 12 10 if ($package eq "DBI::Log")
126 3 9 if ($mcount > 1)
145 6 7 if ($package eq "DBI::Log")
148 0 7 if ($opts{'exclude'})
150 0 0 if ($package =~ /^$item(::|$)/)
158 6 0 unless ($opts{'trace'})
167 6 0 if $long_sub =~ /^DBI::Log::__ANON__/
175 1 5 if (ref $query and ref $query eq "DBI::st")
180 6 0 if ($dbh and $opts{'replace_placeholders'})
187 2 0 if ($sth and $sth->{'ParamValues'})
191 0 0 if (defined $key and $key =~ /^\d+$/)
207 1 5 if ($opts{'format'} eq 'json') { }
226 3 5 if $log->{'skip'}
230 1 4 if ($opts{'format'} eq 'json') { }
238 0 4 if ($opts{'timing'})
251 0 10 if (not defined $val) { }
2 8 elsif (ref $val eq 'HASH') { }
1 7 elsif (ref $val eq 'ARRAY') { }
4 3 elsif ($val =~ /^(-?\d+(\.\d*)?(e[+-]?\d+)?)$/i) { }
256 0 2 if $pretty
260 6 2 if ($i)
261 0 6 $pretty ? :
263 0 8 if $pretty
267 0 2 if $pretty
268 0 2 if $pretty
273 0 1 if $pretty
276 0 1 if ($i)
277 0 0 $pretty ? :
279 0 1 if $pretty
282 0 1 if $pretty
283 0 1 if $pretty