Branch Coverage

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


line true false branch
99 0 2 if (not $opts{'file'}) { }
104 0 2 if ($file2 =~ m[^~/])
108 0 2 unless open $opts{'fh'}, ">>", $file2
128 12 10 if ($package eq "DBI::Log")
130 3 9 if ($mcount > 1)
149 6 7 if ($package eq "DBI::Log")
152 0 7 if ($opts{'exclude'})
154 0 0 if ($package =~ /^$item(::|$)/)
162 6 0 unless ($opts{'trace'})
171 6 0 if $long_sub =~ /^DBI::Log::__ANON__/
179 1 5 if (ref $query and ref $query eq "DBI::st")
184 6 0 if ($dbh and $opts{'replace_placeholders'})
191 2 0 if ($sth and $sth->{'ParamValues'})
195 0 0 if (defined $key and $key =~ /^\d+$/)
211 1 5 if ($opts{'format'} eq 'json') { }
230 3 5 if $log->{'skip'}
234 1 4 if ($opts{'format'} eq 'json') { }
242 0 4 if ($opts{'timing'})
255 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) { }
260 0 2 if $pretty
264 6 2 if ($i)
265 0 6 $pretty ? :
267 0 8 if $pretty
271 0 2 if $pretty
272 0 2 if $pretty
277 0 1 if $pretty
280 0 1 if ($i)
281 0 0 $pretty ? :
283 0 1 if $pretty
286 0 1 if $pretty
287 0 1 if $pretty