Branch Coverage

blib/lib/Data/Scan/Impl/Printer.pm
Criterion Covered Total %
branch 78 104 75.0


line true false branch
205 1 0 if ($self->with_ansicolor) { }
208 19 4 if (defined $color) { }
215 19 0 if ($colored =~ /(.+)dummy\e\[0m$/) { }
261 0 36 unless @{$self->{'_lines'};}
265 0 36 if (&Scalar::Util::blessed($handle) and $handle->can('print')) { }
281 3 7 if ($reftype eq 'ARRAY') { }
5 2 elsif ($reftype eq 'HASH') { }
289 9 1 if ($self->{'_currentLevel'}) { }
315 3 7 if ($reftype eq 'ARRAY') { }
5 2 elsif ($reftype eq 'HASH') { }
340 34 1 $currentLevel ? :
344 34 1 if ($currentLevel)
346 32 2 if ($currentReftypePerLevel eq 'ARRAY' or $currentReftypePerLevel eq 'HASH')
348 6 26 if ($currentReftypePerLevel eq 'ARRAY') { }
349 4 2 if $currentIndicePerLevel > $ARRAY_START_INDICE
353 13 13 if ($currentIndicePerLevel % 2) { }
356 10 3 if $currentIndicePerLevel > 0
361 32 0 if ($show_indice)
362 0 32 if ($self->with_indices_full) { }
381 14 21 if ($refaddr)
382 2 12 if (exists $self->{'_seen'}{$refaddr}) { }
396 11 1 if $currentLevel
400 33 2 unless ($alreadyScanned)
401 3 30 if ($blessed and $reftype ne 'REGEXP') { }
1 29 elsif ($reftype eq 'CODE' and $self->with_deparse) { }
22 8 elsif (not $reftype or $reftype ne 'ARRAY' and $reftype ne 'HASH' and $reftype ne 'SCALAR' and $reftype ne 'REF') { }
414 0 1 if $@
423 1 0 if (@code)
441 21 1 if (defined $item) { }
443 21 0 if (defined $string) { }
444 0 20 $reftype eq 'CODE' ? :
1 20 $reftype eq 'REGEXP' ? :
457 0 33 if ($refaddr and $self->with_address)
460 0 0 length $address_format ? :
474 35 0 if (not $max_depth = $self->max_depth or $currentLevel < $max_depth)
478 33 2 unless ($alreadyScanned)
479 12 21 if ($reftype)
480 3 9 if ($reftype eq 'ARRAY') { }
5 4 elsif ($reftype eq 'HASH') { }
1 3 elsif ($reftype eq 'SCALAR') { }
1 2 elsif ($reftype eq 'REF') { }
490 0 33 if ($blessed and $self->with_methods)
493 0 0 if (defined $expanded and &reftype($expanded) eq 'ARRAY')
515 0 0 if ($self->with_filename)
516 0 0 if ('Class::Inspector'->loaded($blessed)) { }
526 35 0 unless $self->buffered
557 19 156 if ($what eq 'string' and not &looks_like_number($desc))
564 175 0 if ($self->with_ansicolor)
569 150 25 if defined $color_cache
581 0 1 if exists $ENV{'ANSI_COLORS_DISABLED'}
585 0 1 if exists $ENV{'ANSI_COLORS_ENABLED'}
589 0 1 if is_os_type('Windows') and not $_HAVE_Win32__Console__ANSI