Branch Coverage

blib/lib/Data/TreeDumper/Utils.pm
Criterion Covered Total %
branch 40 58 68.9


line true false branch
175 3 0 if ('HASH' eq ref $structure or obj $structure, 'HASH')
177 0 3 defined $nodes_to_display ? :
240 0 3 unless $argument_hash{'KEYS'}
242 2 1 if (exists $argument_hash{'REMOVE'})
249 2 1 if exists $argument_hash{'AT_START_FIXED'}
252 3 0 if exists $argument_hash{'AT_START'}
255 3 0 if exists $argument_hash{'AT_END'}
257 2 1 if exists $argument_hash{'AT_END_FIXED'}
267 15 0 exists $$_{'matches'} ? :
300 47 68 if ('Regexp' eq ref $$regexp{'regexp'}) { }
302 15 32 if ($key =~ /$$regexp{'regexp'}/)
311 9 59 if ($key eq $$regexp{'regexp'})
348 2 0 if ('HASH' eq ref $structure or obj $_, 'HASH') { }
350 0 2 if defined $keys
390 6 0 if ('HASH' eq ref $structure or obj $structure, 'HASH')
392 6 0 defined $nodes_to_display ? :
398 0 14 if ('ARRAY' eq ref $key) { }
506 0 4 unless $EMPTY_STRING eq ref $class_to_key[$index] or 'Regexp' eq ref $class_to_key[$index]
507 0 4 unless 'ARRAY' eq ref $class_to_key[$index + 1]
520 11 4 if $value =~ /$regex/
533 5 0 if ($ref_s eq 'HASH' or obj $s, 'HASH') { }
537 5 9 if ($ref_s =~ /$$class[0]/ or obj $s, $$class[0])
625 1 4 unless defined $package
628 1 3 if $subroutine eq '(eval)'
629 0 4 if defined $evaltext
630 3 1 if $has_args
631 0 4 if $is_require
632 0 4 $wantarray ? :
4 0 defined $wantarray ? :