Branch Coverage

blib/lib/Data/PrettyPrintObjects.pm
Criterion Covered Total %
branch 113 134 84.3


line true false branch
93 1 7 if ($key eq 'objs') { }
110 0 1 if ($key eq 'objs') { }
131 43 57 if (not $type) { }
30 27 elsif ($type eq 'ARRAY') { }
27 0 elsif ($type eq 'HASH') { }
154 90 400 if (defined $obj) { }
155 48 42 if (exists $Options{'objs'}{$obj}{$opt}) { }
42 0 elsif (exists $ObjDefaults{$opt}) { }
164 73 327 if (exists $Options{$opt}) { }
327 0 elsif (exists $Defaults{$opt}) { }
187 179 130 unless $type
192 6 124 if (exists $Refs{$ref})
200 67 57 if ($type eq 'ARRAY') { }
39 18 elsif ($type eq 'HASH') { }
223 3 15 if ($opt_print eq 'ref') { }
14 1 elsif ($opt_print eq 'method' or $opt_print eq 'func') { }
1 0 elsif ($opt_print eq 'data') { }
232 2 12 if ($opt_print eq 'func')
241 2 3 if (defined &$func)
249 12 2 if ($opt_print eq 'method')
250 10 2 if $val->can($opt_func)
253 2 12 unless ($func_defined)
257 1 11 if ($opt_ref)
262 2 10 if ($opt_print eq 'func')
264 2 6 if $arg eq '$OBJ'
268 7 5 if ($opt_type eq 'list') { }
2 3 elsif ($opt_type eq 'hash') { }
270 5 2 if ($opt_print eq 'method') { }
276 1 6 if (@list == 1 and ref $list[0] eq 'ARRAY')
285 2 0 if ($opt_print eq 'method') { }
291 0 2 if (@list == 1 and ref $list[0] eq 'HASH') { }
300 3 0 if ($opt_print eq 'method') { }
313 0 1 if ($opt_ref)
317 0 1 if ($type eq 'ARRAY') { }
1 0 elsif ($type eq 'HASH') { }
350 6 66 if $done
355 0 66 unless $opt_indent
369 9 57 $opt_format eq 'indexed' ? :
384 17 119 if ($opt_format eq 'indexed') { }
119 0 elsif ($opt_format eq 'standard') { }
395 97 39 if (not $type) { }
4 35 elsif ($depth == $opt_maxdep) { }
29 6 elsif ($type eq 'ARRAY') { }
6 0 elsif ($type eq 'HASH') { }
416 70 66 if $i < $#vals
434 0 42 if $done
438 0 42 unless $opt_indent
478 54 30 if (not $type) { }
0 30 elsif ($depth == $opt_maxdep) { }
6 24 elsif ($type eq 'ARRAY') { }
6 18 elsif ($type eq 'HASH') { }
499 42 42 if $i < @keys
510 6 272 if (not defined $val) { }
6 266 elsif ($val eq '') { }
25 241 elsif ($val =~ /[,'\s\n]/s) { }
519 25 0 if ($val =~ /(\n*)$/)
553 335 118 if (@$listref)
564 0 84 if (ref $ele) { }
569 42 42 if $len > $max
578 102 12 if not exists $Refs{$ref} or $Refs{$ref}[1] == 1
581 6 6 if (exists $Printed{$ref}) { }
583 2 4 if ($opt_dupl eq 'link') { }
2 2 elsif ($opt_dupl eq 'reflink') { }
2 0 elsif ($opt_dupl eq 'ref') { }
596 4 2 if ($opt_dupl eq 'link' or $opt_dupl eq 'ref') { }
2 0 elsif ($opt_dupl eq 'reflink') { }
610 2 2 if ($opt_maxmeth eq 'ref') { }