| line |
true |
false |
branch |
|
23
|
1 |
0 |
if ($^O ne 'MSWin32') { }
|
|
26
|
0 |
1 |
if $@
|
|
31
|
0 |
0 |
if $@
|
|
188
|
0 |
0 |
if @_ % 2
|
|
195
|
0 |
0 |
unless defined $structure_to_dump
|
|
197
|
0 |
0 |
if "" eq ref $structure_to_dump
|
|
199
|
0 |
0 |
if $Displaycallerlocation
|
|
203
|
0 |
0 |
if (exists $overrides{'NO_PACKAGE_SETUP'} and $overrides{'NO_PACKAGE_SETUP'}) { }
|
|
212
|
0 |
0 |
unless (exists $local_setup{'TYPE_FILTERS'}{'Regexp'})
|
|
238
|
0 |
0 |
defined $title ? :
|
|
240
|
0 |
0 |
if (defined $structure_to_dump) { }
|
|
269
|
0 |
0 |
if "" eq $tree_type
|
|
273
|
0 |
0 |
if $setup->{'MAX_DEPTH'} == $level
|
|
278
|
0 |
0 |
if ($level == 0)
|
|
282
|
0 |
0 |
if ($@)
|
|
289
|
0 |
0 |
if $level == 0
|
|
297
|
0 |
0 |
if (defined $filter_sub) { }
|
|
302
|
0 |
0 |
if defined $replacement_tree
|
|
309
|
0 |
0 |
unless defined $tree_type
|
|
316
|
0 |
0 |
if (ref $node eq 'ARRAY') { }
|
|
331
|
0 |
0 |
if $level == 0
|
|
362
|
0 |
0 |
if (not $is_terminal_node and exists $already_displayed_nodes->{$element_address})
|
|
367
|
0 |
0 |
defined $tree ? :
|
|
380
|
0 |
0 |
if ($is_terminal_node) { }
|
|
398
|
0 |
0 |
if $level == 0
|
|
413
|
0 |
0 |
if defined $level_filters and exists $level_filters->{$level}
|
|
416
|
0 |
0 |
if defined $type_filters and exists $type_filters->{$type}
|
|
418
|
0 |
0 |
unless ("CODE" eq ref $filter_sub or not defined $filter_sub)
|
|
438
|
0 |
0 |
if ($tree_type eq "HASH" or &obj($tree, "HASH"))
|
|
440
|
0 |
0 |
if defined $element
|
|
442
|
0 |
0 |
if ($setup->{'QUOTE_HASH_KEYS'}) { }
|
|
457
|
0 |
0 |
if ($tree_type eq "ARRAY" or &obj($tree, "ARRAY"))
|
|
459
|
0 |
0 |
if defined $element
|
|
466
|
0 |
0 |
if ($tree_type eq "REF" or &obj($tree, "REF"))
|
|
468
|
0 |
0 |
if defined $element
|
|
476
|
0 |
0 |
if ($element_type eq "" or &obj($element, "HASH"))
|
|
481
|
0 |
0 |
if ($element_type eq "HASH" or &obj($element, "HASH"))
|
|
486
|
0 |
0 |
if ($element_type eq "ARRAY" or &obj($element, "ARRAY"))
|
|
491
|
0 |
0 |
if ($element_type eq "REF" or &obj($element, "REF"))
|
|
496
|
0 |
0 |
if ($element_type eq "CODE" or &obj($element, "CODE"))
|
|
501
|
0 |
0 |
if ($element_type eq "SCALAR" or &obj($element, "SCALAR"))
|
|
513
|
0 |
0 |
if ($tree_type eq "CODE" or &obj($tree, "CODE"))
|
|
515
|
0 |
0 |
if defined $element
|
|
523
|
0 |
0 |
if ($tree_type eq "SCALAR" or &obj($tree, "SCALAR"))
|
|
525
|
0 |
0 |
if defined $element
|
|
583
|
0 |
0 |
if (exists $setup->{'__TYPE_SEPARATORS'}{$tree_type}) { }
|
|
601
|
0 |
0 |
if $setup->{'NO_OUTPUT'}
|
|
603
|
0 |
0 |
if (defined $setup->{'RENDERER'}{'END'}) { }
|
|
609
|
0 |
0 |
unless ($setup->{'USE_ASCII'})
|
|
626
|
0 |
0 |
if (defined $setup->{'RENDERER'} and "" eq ref $setup->{'RENDERER'})
|
|
633
|
0 |
0 |
if $@
|
|
636
|
0 |
0 |
if (defined $setup->{'RENDERER'}{'NAME'})
|
|
643
|
0 |
0 |
if $@
|
|
646
|
0 |
0 |
unless ($setup->{'NO_OUTPUT'})
|
|
650
|
0 |
0 |
if (defined $setup->{'RENDERER'}{'BEGIN'}) { }
|
|
653
|
0 |
0 |
if $setup->{'DISPLAY_ROOT_ADDRESS'}
|
|
656
|
0 |
0 |
if $setup->{'DISPLAY_PERL_ADDRESS'}
|
|
659
|
0 |
0 |
if $setup->{'DISPLAY_PERL_SIZE'}
|
|
667
|
0 |
0 |
if ($title ne "")
|
|
674
|
0 |
0 |
$setup->{'DISPLAY_ADDRESS'} && $setup->{'DISPLAY_ROOT_ADDRESS'} ? :
|
|
|
0 |
0 |
$setup->{'DISPLAY_PERL_ADDRESS'} ? :
|
|
|
0 |
0 |
$setup->{'DISPLAY_PERL_SIZE'} ? :
|
|
715
|
0 |
0 |
if $setup->{'NO_OUTPUT'}
|
|
717
|
0 |
0 |
if (defined $setup->{'RENDERER'}{'NODE'}) { }
|
|
747
|
0 |
0 |
unless $perl_size eq ""
|
|
751
|
0 |
0 |
if ($setup->{'NO_WRAP'}) { }
|
|
760
|
0 |
0 |
if (defined $setup->{'WRAP_WIDTH'}) { }
|
|
766
|
0 |
0 |
if (defined $^O)
|
|
768
|
0 |
0 |
if ($^O ne 'MSWin32') { }
|
|
778
|
0 |
0 |
if (not defined $columns or $columns eq "")
|
|
792
|
0 |
0 |
if (length($tree_header) + length($element_description) > $columns and not $setup->{'NO_WRAP'}) { }
|
|
843
|
0 |
0 |
if $setup->{'DISPLAY_PERL_SIZE'}
|
|
854
|
0 |
0 |
if ("" eq $_)
|
|
860
|
0 |
0 |
defined $element ? :
|
|
864
|
0 |
0 |
if (defined $replacement_list)
|
|
874
|
0 |
0 |
unless ($setup->{'DISPLAY_NO_VALUE'})
|
|
876
|
0 |
0 |
if ($setup->{'QUOTE_VALUES'} and defined $element) { }
|
|
886
|
0 |
0 |
if $setup->{'DISPLAY_PERL_ADDRESS'}
|
|
893
|
0 |
0 |
if ("HASH" eq $_)
|
|
903
|
0 |
0 |
if $setup->{'DISPLAY_PERL_ADDRESS'}
|
|
905
|
0 |
0 |
unless (%{$element;} or $setup->{'NO_NO_ELEMENTS'})
|
|
910
|
0 |
0 |
if (%{$element;} and $setup->{'MAX_DEPTH'} == $level + 1 && $setup->{'DISPLAY_NUMBER_OF_ELEMENTS_OVER_MAX_DEPTH'} || $setup->{'DISPLAY_NUMBER_OF_ELEMENTS'})
|
|
921
|
0 |
0 |
$number_of_elements > 1 ? :
|
|
928
|
0 |
0 |
if ($setup->{'DISPLAY_TIE'} and my $tie = tied %$element)
|
|
940
|
0 |
0 |
if ("ARRAY" eq $_)
|
|
950
|
0 |
0 |
if $setup->{'DISPLAY_PERL_ADDRESS'}
|
|
952
|
0 |
0 |
unless (@{$element;} or $setup->{'NO_NO_ELEMENTS'})
|
|
957
|
0 |
0 |
if (@{$element;} and $setup->{'MAX_DEPTH'} == $level + 1 && $setup->{'DISPLAY_NUMBER_OF_ELEMENTS_OVER_MAX_DEPTH'} || $setup->{'DISPLAY_NUMBER_OF_ELEMENTS'})
|
|
967
|
0 |
0 |
scalar @{$element;} > 1 ? :
|
|
974
|
0 |
0 |
if ($setup->{'DISPLAY_TIE'} and my $tie = tied @$element)
|
|
985
|
0 |
0 |
if ("CODE" eq $_)
|
|
994
|
0 |
0 |
if $setup->{'DISPLAY_PERL_ADDRESS'}
|
|
999
|
0 |
0 |
if ("SCALAR" eq $_)
|
|
1003
|
0 |
0 |
if $setup->{'DISPLAY_PERL_ADDRESS'}
|
|
1008
|
0 |
0 |
if ("GLOB" eq $_)
|
|
1011
|
0 |
0 |
if $setup->{'DISPLAY_PERL_ADDRESS'}
|
|
1016
|
0 |
0 |
if ("REF" eq $_)
|
|
1019
|
0 |
0 |
if $setup->{'DISPLAY_PERL_ADDRESS'}
|
|
1027
|
0 |
0 |
if (&obj($element, 'HASH')) { }
|
|
|
0 |
0 |
elsif (&obj($element, 'ARRAY')) { }
|
|
|
0 |
0 |
elsif (&obj($element, 'GLOB')) { }
|
|
|
0 |
0 |
elsif (&obj($element, 'SCALAR')) { }
|
|
1030
|
0 |
0 |
if (%{$element;} and $setup->{'MAX_DEPTH'} == $level + 1 && $setup->{'DISPLAY_NUMBER_OF_ELEMENTS_OVER_MAX_DEPTH'} || $setup->{'DISPLAY_NUMBER_OF_ELEMENTS'})
|
|
1041
|
0 |
0 |
$number_of_elements > 1 ? :
|
|
1048
|
0 |
0 |
if (@{$element;} and $setup->{'MAX_DEPTH'} == $level + 1 && $setup->{'DISPLAY_NUMBER_OF_ELEMENTS_OVER_MAX_DEPTH'} || $setup->{'DISPLAY_NUMBER_OF_ELEMENTS'})
|
|
1058
|
0 |
0 |
scalar @{$element;} ? :
|
|
1071
|
0 |
0 |
if $setup->{'DISPLAY_PERL_ADDRESS'}
|
|
1082
|
0 |
0 |
if ($setup->{'DISPLAY_OBJECT_TYPE'})
|
|
1097
|
0 |
0 |
if (exists $already_displayed_nodes->{$element_address}) { }
|
|
1101
|
0 |
0 |
if $setup->{'DISPLAY_ADDRESS'}
|
|
1108
|
0 |
0 |
if $setup->{'DISPLAY_PATH'}
|
|
1111
|
0 |
0 |
if $setup->{'DISPLAY_ADDRESS'}
|
|
1149
|
0 |
0 |
if ("" eq $_)
|
|
1155
|
0 |
0 |
if ("HASH" eq $_)
|
|
1157
|
0 |
0 |
unless %$element
|
|
1160
|
0 |
0 |
if (not $is_terminal_node and defined $setup->{'RENDERER'}{'NODE'})
|
|
1162
|
0 |
0 |
if (defined $filter_sub)
|
|
1170
|
0 |
0 |
unless @children_nodes_to_display
|
|
1177
|
0 |
0 |
if ("ARRAY" eq $_)
|
|
1179
|
0 |
0 |
unless @$element
|
|
1182
|
0 |
0 |
if (not $is_terminal_node and defined $setup->{'RENDERER'}{'NODE'})
|
|
1184
|
0 |
0 |
if (defined $filter_sub)
|
|
1192
|
0 |
0 |
unless @children_nodes_to_display
|
|
1199
|
0 |
0 |
if ("CODE" eq $_)
|
|
1205
|
0 |
0 |
if ("SCALAR" eq $_)
|
|
1211
|
0 |
0 |
if ("GLOB" eq $_)
|
|
1217
|
0 |
0 |
if ("REF" eq $_)
|
|
1227
|
0 |
0 |
if (&obj($_, "HASH"))
|
|
1228
|
0 |
0 |
unless (%$element)
|
|
1232
|
0 |
0 |
unless ($setup->{'NO_NO_ELEMENTS'})
|
|
1241
|
0 |
0 |
if (&obj($_, "ARRAY/"))
|
|
1242
|
0 |
0 |
unless (@$element)
|
|
1246
|
0 |
0 |
unless ($setup->{'NO_NO_ELEMENTS'})
|
|
1256
|
0 |
0 |
if wantarray
|
|
1268
|
0 |
0 |
if ($setup->{'DISPLAY_TIE'})
|
|
1270
|
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) { }
|
|
1295
|
0 |
0 |
if ("" eq $_ or "HASH" eq $_ or "ARRAY" eq $_ or "CODE" eq $_ or "SCALAR" eq $_ or "GLOB" eq $_ or "REF" eq $_)
|
|
1300
|
0 |
0 |
if ($setup->{'DISPLAY_OBJECT_TYPE'})
|
|
1305
|
0 |
0 |
$has_autoload ? :
|
|
1309
|
0 |
0 |
if ($setup->{'DISPLAY_INHERITANCE'})
|
|
1313
|
0 |
0 |
if ($setup->{'DISPLAY_AUTOLOAD'}) { }
|
|
1318
|
0 |
0 |
if ($has_autoload) { }
|
|
1347
|
0 |
0 |
if "" eq ref $tree
|
|
1351
|
0 |
0 |
if ("HASH" eq $tree_type)
|
|
1353
|
0 |
0 |
if defined $keys
|
|
1357
|
0 |
0 |
if ("ARRAY" eq $tree_type)
|
|
1359
|
0 |
0 |
if defined $keys
|
|
1363
|
0 |
0 |
if "SCALAR" eq $tree_type
|
|
1364
|
0 |
0 |
if "REF" eq $tree_type
|
|
1365
|
0 |
0 |
if "CODE" eq $tree_type
|
|
1366
|
0 |
0 |
if "=CODE" =~ "$tree_type"
|
|
1374
|
0 |
0 |
if (&obj($_, "HASH"))
|
|
1381
|
0 |
0 |
if (&obj($_, "ARRAY"))
|
|
1388
|
0 |
0 |
if (&obj($_, "GLOB"))
|
|
1395
|
0 |
0 |
if (&obj($_, "SCALAR"))
|
|
1402
|
0 |
0 |
if (&obj($_, "CODE"))
|
|
1429
|
0 |
0 |
if defined $replacement_tree
|
|
1456
|
0 |
0 |
if (exists $types{$reference}) { }
|
|
1464
|
0 |
0 |
if ($element =~ /=HASH/) { }
|
|
|
0 |
0 |
elsif ($element =~ /=ARRAY/) { }
|
|
|
0 |
0 |
elsif ($element =~ /=GLOB/) { }
|
|
|
0 |
0 |
elsif ($element =~ /=SCALAR/) { }
|
|
1494
|
0 |
0 |
if ($setup->{'NUMBER_LEVELS'})
|
|
1496
|
0 |
0 |
if ('CODE' eq ref $setup->{'NUMBER_LEVELS'}) { }
|
|
1505
|
0 |
0 |
if ($color_levels)
|
|
1507
|
0 |
0 |
if ('ARRAY' eq ref $color_levels) { }
|
|
1548
|
0 |
0 |
if ($colors)
|
|
1550
|
0 |
0 |
if ('ARRAY' eq ref $colors) { }
|
|
1557
|
0 |
0 |
if ("CODE" eq ref $colors)
|
|
1566
|
0 |
0 |
if (not defined $levels_left->[$current_level] or $levels_left->[$current_level] == 0) { }
|
|
1583
|
0 |
0 |
if ($level > 0 or $start_level)
|
|
1585
|
0 |
0 |
if ($colors)
|
|
1587
|
0 |
0 |
if ('ARRAY' eq ref $colors) { }
|
|
1599
|
0 |
0 |
if ($is_last_in_level == 0) { }
|