Branch Coverage

blib/lib/Data/Printer/Common.pm
Criterion Covered Total %
branch 76 106 71.7


line true false branch
15 370 92 exists $core_types{$name} ? :
52 5 216 if ($max and $str_len and $str_len > $max) { }
54 1 4 $preserve eq 'none' ? :
62 1 4 if ($preserve eq 'end') { }
1 3 elsif ($preserve eq 'begin') { }
1 2 elsif ($preserve eq 'extremes') { }
1 1 elsif ($preserve eq 'middle') { }
64 0 1 if $ddp->print_escapes
70 0 1 if $ddp->print_escapes
79 0 1 if ($ddp->print_escapes)
95 0 1 if $ddp->print_escapes
109 1 215 if $ddp->print_escapes
128 3 218 if ($ddp->unicode_charnames) { }
1 217 elsif ($escape_kind eq 'all') { }
130 1 2 if ($escape_kind eq 'all') { }
135 2 0 if exists $target_for{$escape_kind}
143 2 215 if exists $target_for{$escape_kind}
160 220 1 unless $ddp->print_escapes
177 0 13 if $INC{'Sort/Key/Natural.pm'}
178 0 13 if $INC{'Sort/Naturally.pm'}
179 0 13 unless _tryme("use Sort::Key::Natural; 1;")
180 0 13 unless _tryme("use Sort::Naturally; 1;")
185 11 123 unless ($nsort_initialized)
187 0 11 if ($nsort_class eq 'Sort::Key::Natural') { }
0 11 elsif ($nsort_class ne 'core') { }
215 0 0 unless exists $props->{$name} and ref $props->{$name} eq "ARRAY"
218 0 0 if (ref $option)
222 0 0 unless exists $props->{'warnings'} and $props->{'warnings'}
232 2817 135 unless exists $props->{$name}
234 135 169 if $props->{$name} eq $option
245 11971 576 unless exists $props->{$name}
247 0 576 if (my $ref = ref $props->{$name})
261 0 1 if $ddp and not $ddp->warnings
269 4 3 unless ($caller[0] =~ /\AD(?:DP|ata::Printer)/)
285 324 2788 if (ref $subref_or_string eq 'CODE') { }
302 3073 39 unless $failed
319 101 12 if not $max or @$array_ref <= $max
322 6 6 if ($preserve eq 'begin' or $preserve eq 'end') { }
2 4 elsif ($preserve eq 'extremes') { }
2 2 elsif ($preserve eq 'middle') { }
327 4 2 $preserve eq 'begin' ? :
367 10 134 unless $mro_initialized
369 144 0 if ($mro_initialized > 0) { }
377 6 138 $ddp->class->universal ? :
383 0 11 if ($] < 5.009005) { }
387 0 0 if ($error and index($error, "in \@INC") != -1 and $mro_initialized == 0)
388 0 0 $] < 5.009005 ? :
394 0 11 $error ? :
406 108 0 if $] >= "5.01"
415 15 23 unless $res
421 247 15 if (exists $namespace->{$symbol_name})
423 247 0 if (ref $entry_ref eq 'GLOB') { }
427 0 0 if ($symbol_kind eq "CODE")