Branch Coverage

blib/lib/Data/TreeDumper.pm
Criterion Covered Total %
branch 2 352 0.5


line true false branch
23 1 0 if ($^O ne 'MSWin32') { }
26 0 1 if $@
31 0 0 if $@
180 0 0 defined $title ? :
186 0 0 if ($Displaycallerlocation)
188 0 0 defined $overrides{'DUMPER_NAME'} ? :
191 0 0 unless (defined $structure_to_dump)
196 0 0 if ('' eq ref $structure_to_dump)
201 0 0 if ($Displaycallerlocation)
208 0 0 if (exists $overrides{'NO_PACKAGE_SETUP'} and $overrides{'NO_PACKAGE_SETUP'}) { }
217 0 0 unless (exists $local_setup{'TYPE_FILTERS'}{'Regexp'})
243 0 0 defined $title ? :
245 0 0 if (defined $structure_to_dump) { }
270 0 0 if '' eq $tree_type
274 0 0 if $$setup{'MAX_DEPTH'} == $level
279 0 0 if ($level == 0)
283 0 0 if ($@)
290 0 0 if $level == 0
298 0 0 if (defined $filter_sub) { }
303 0 0 if defined $replacement_tree
310 0 0 unless defined $tree_type
317 0 0 if (ref $node eq 'ARRAY') { }
332 0 0 if $level == 0
363 0 0 if (not $is_terminal_node and exists $$already_displayed_nodes{$element_address})
368 0 0 defined $tree ? :
381 0 0 if (not $is_terminal_node) { }
399 0 0 if $level == 0
414 0 0 if defined $level_filters and exists $$level_filters{$level}
417 0 0 if defined $type_filters and exists $$type_filters{$type}
419 0 0 unless ('CODE' eq ref $filter_sub or not defined $filter_sub)
441 0 0 if ($tree_type eq 'HASH' or obj $tree, 'HASH')
443 0 0 if defined $element
445 0 0 if ($$setup{'QUOTE_HASH_KEYS'}) { }
460 0 0 if ($tree_type eq 'ARRAY' or obj $tree, 'ARRAY')
471 0 0 if defined $element
478 0 0 if ($tree_type eq 'REF' or obj $tree, 'REF')
480 0 0 if defined $element
488 0 0 if ($element_type eq '' or obj $element, 'HASH')
493 0 0 if ($element_type eq 'HASH' or obj $element, 'HASH')
498 0 0 if ($element_type eq 'ARRAY' or obj $element, 'ARRAY')
503 0 0 if ($element_type eq 'REF' or obj $element, 'REF')
508 0 0 if ($element_type eq 'CODE' or obj $element, 'CODE')
513 0 0 if ($element_type eq 'SCALAR' or obj $element, 'SCALAR')
525 0 0 if ($tree_type eq 'CODE' or obj $tree, 'CODE')
527 0 0 if defined $element
535 0 0 if ($tree_type eq 'SCALAR' or obj $tree, 'SCALAR')
537 0 0 if defined $element
595 0 0 if (exists $$setup{'__TYPE_SEPARATORS'}{$tree_type}) { }
613 0 0 if $$setup{'NO_OUTPUT'}
615 0 0 if (defined $$setup{'RENDERER'}{'END'}) { }
621 0 0 unless ($$setup{'USE_ASCII'})
638 0 0 if (defined $$setup{'RENDERER'} and '' eq ref $$setup{'RENDERER'})
645 0 0 if $@
648 0 0 if (defined $$setup{'RENDERER'}{'NAME'})
655 0 0 if $@
658 0 0 unless ($$setup{'NO_OUTPUT'})
662 0 0 if (defined $$setup{'RENDERER'}{'BEGIN'}) { }
665 0 0 if $$setup{'DISPLAY_ROOT_ADDRESS'}
668 0 0 if $$setup{'DISPLAY_PERL_ADDRESS'}
671 0 0 if $$setup{'DISPLAY_PERL_SIZE'}
679 0 0 defined $$setup{'TITLE'} ? :
681 0 0 if $$setup{'DISPLAY_ROOT_ADDRESS'}
682 0 0 if $$setup{'DISPLAY_PERL_ADDRESS'}
683 0 0 if $$setup{'DISPLAY_PERL_SIZE'}
723 0 0 if $$setup{'NO_OUTPUT'}
725 0 0 if (defined $$setup{'RENDERER'}{'NODE'}) { }
755 0 0 unless $perl_size eq ''
759 0 0 if ($$setup{'NO_WRAP'}) { }
768 0 0 if (defined $$setup{'WRAP_WIDTH'}) { }
774 0 0 if (defined $^O)
776 0 0 if ($^O ne 'MSWin32') { }
786 0 0 if ($columns eq '')
795 0 0 if (length($tree_header) + length($element_description) > $columns and not $$setup{'NO_WRAP'}) { }
832 0 0 if $$setup{'DISPLAY_PERL_SIZE'}
843 0 0 if ('' eq $_)
849 0 0 defined $element ? :
853 0 0 if (defined $replacement_list)
863 0 0 if ($$setup{'QUOTE_VALUES'} and defined $element) { }
872 0 0 if $$setup{'DISPLAY_PERL_ADDRESS'}
879 0 0 if ('HASH' eq $_)
889 0 0 if $$setup{'DISPLAY_PERL_ADDRESS'}
891 0 0 unless (%{$element;} or $$setup{'NO_NO_ELEMENTS'})
896 0 0 if (%{$element;} and $$setup{'MAX_DEPTH'} == $level + 1 && $$setup{'DISPLAY_NUMBER_OF_ELEMENTS_OVER_MAX_DEPTH'} || $$setup{'DISPLAY_NUMBER_OF_ELEMENTS'})
907 0 0 $number_of_elements > 1 ? :
914 0 0 if ($$setup{'DISPLAY_TIE'} and my $tie = tied %$element)
926 0 0 if ('ARRAY' eq $_)
936 0 0 if $$setup{'DISPLAY_PERL_ADDRESS'}
938 0 0 unless (@{$element;} or $$setup{'NO_NO_ELEMENTS'})
943 0 0 if (@{$element;} and $$setup{'MAX_DEPTH'} == $level + 1 && $$setup{'DISPLAY_NUMBER_OF_ELEMENTS_OVER_MAX_DEPTH'} || $$setup{'DISPLAY_NUMBER_OF_ELEMENTS'})
953 0 0 scalar @{$element;} ? :
960 0 0 if ($$setup{'DISPLAY_TIE'} and my $tie = tied @$element)
971 0 0 if ('CODE' eq $_)
980 0 0 if $$setup{'DISPLAY_PERL_ADDRESS'}
985 0 0 if ('SCALAR' eq $_)
989 0 0 if $$setup{'DISPLAY_PERL_ADDRESS'}
994 0 0 if ('GLOB' eq $_)
997 0 0 if $$setup{'DISPLAY_PERL_ADDRESS'}
1002 0 0 if ('REF' eq $_)
1005 0 0 if $$setup{'DISPLAY_PERL_ADDRESS'}
1013 0 0 if (obj $element, 'HASH') { }
0 0 elsif (obj $element, 'ARRAY') { }
0 0 elsif (obj $element, 'GLOB') { }
0 0 elsif (obj $element, 'SCALAR') { }
1016 0 0 if (%{$element;} and $$setup{'MAX_DEPTH'} == $level + 1 && $$setup{'DISPLAY_NUMBER_OF_ELEMENTS_OVER_MAX_DEPTH'} || $$setup{'DISPLAY_NUMBER_OF_ELEMENTS'})
1027 0 0 $number_of_elements > 1 ? :
1034 0 0 if (@{$element;} and $$setup{'MAX_DEPTH'} == $level + 1 && $$setup{'DISPLAY_NUMBER_OF_ELEMENTS_OVER_MAX_DEPTH'} || $$setup{'DISPLAY_NUMBER_OF_ELEMENTS'})
1044 0 0 scalar @{$element;} ? :
1057 0 0 if $$setup{'DISPLAY_PERL_ADDRESS'}
1068 0 0 if ($$setup{'DISPLAY_OBJECT_TYPE'})
1083 0 0 if (exists $$already_displayed_nodes{$element_address}) { }
1087 0 0 if $$setup{'DISPLAY_ADDRESS'}
1094 0 0 if $$setup{'DISPLAY_PATH'}
1097 0 0 if $$setup{'DISPLAY_ADDRESS'}
1135 0 0 if ('' eq $_)
1141 0 0 if ('HASH' eq $_)
1143 0 0 unless %$element
1146 0 0 if (not $is_terminal_node and defined $$setup{'RENDERER'}{'NODE'})
1148 0 0 if (defined $filter_sub)
1156 0 0 unless @children_nodes_to_display
1163 0 0 if ('ARRAY' eq $_)
1165 0 0 unless @$element
1168 0 0 if (not $is_terminal_node and defined $$setup{'RENDERER'}{'NODE'})
1170 0 0 if (defined $filter_sub)
1178 0 0 unless @children_nodes_to_display
1185 0 0 if ('CODE' eq $_)
1191 0 0 if ('SCALAR' eq $_)
1197 0 0 if ('GLOB' eq $_)
1203 0 0 if ('REF' eq $_)
1213 0 0 if (obj $_, 'HASH')
1214 0 0 unless (%$element)
1218 0 0 unless ($$setup{'NO_NO_ELEMENTS'})
1227 0 0 if (obj $_, 'ARRAY/')
1228 0 0 unless (@$element)
1232 0 0 unless ($$setup{'NO_NO_ELEMENTS'})
1242 0 0 if wantarray
1254 0 0 if ($$setup{'DISPLAY_TIE'})
1256 0 0 if (obj $element, 'HASH' and my $tie_hash = tied %$element) { }
0 0 elsif (obj $element, 'ARRAY' and my $tie_array = tied @$element) { }
0 0 elsif (obj $element, 'SCALAR' and my $tie_scalar = tied $$element) { }
0 0 elsif (obj $element, 'GLOB' and my $tie_glob = tied *$element) { }
1281 0 0 if ('' eq $_ or 'HASH' eq $_ or 'ARRAY' eq $_ or 'CODE' eq $_ or 'SCALAR' eq $_ or 'GLOB' eq $_ or 'REF' eq $_)
1286 0 0 if ($$setup{'DISPLAY_OBJECT_TYPE'})
1289 0 0 $class->can('AUTOLOAD') ? :
1293 0 0 if ($$setup{'DISPLAY_INHERITANCE'})
1297 0 0 if ($$setup{'DISPLAY_AUTOLOAD'}) { }
1302 0 0 if ($has_autoload) { }
1331 0 0 if '' eq ref $tree
1335 0 0 if ('HASH' eq $tree_type)
1337 0 0 if defined $keys
1341 0 0 if ('ARRAY' eq $tree_type)
1343 0 0 if defined $keys
1347 0 0 if 'SCALAR' eq $tree_type
1348 0 0 if 'REF' eq $tree_type
1349 0 0 if 'CODE' eq $tree_type
1357 0 0 if (obj $_, 'HASH')
1364 0 0 if (obj $_, 'ARRAY')
1371 0 0 if (obj $_, 'GLOB')
1378 0 0 if (obj $_, 'SCALAR')
1405 0 0 if defined $replacement_tree
1432 0 0 if (exists $types{$reference}) { }
1440 0 0 if ($element =~ /=HASH/) { }
0 0 elsif ($element =~ /=ARRAY/) { }
0 0 elsif ($element =~ /=GLOB/) { }
0 0 elsif ($element =~ /=SCALAR/) { }
1470 0 0 if ($$setup{'NUMBER_LEVELS'})
1472 0 0 if ('CODE' eq ref $$setup{'NUMBER_LEVELS'}) { }
1481 0 0 if ($color_levels)
1483 0 0 if ('ARRAY' eq ref $color_levels) { }
1524 0 0 if ($colors)
1526 0 0 if ('ARRAY' eq ref $colors) { }
1533 0 0 if ('CODE' eq ref $colors)
1542 0 0 if (not defined $$levels_left[$current_level] or $$levels_left[$current_level] == 0) { }
1559 0 0 if ($level > 0 or $start_level)
1561 0 0 if ($colors)
1563 0 0 if ('ARRAY' eq ref $colors) { }
1575 0 0 if ($is_last_in_level == 0) { }