Branch Coverage

blib/lib/Data/Dumper/Interp.pm
Criterion Covered Total %
branch 228 426 53.5


line true false branch
112 0 9 if (my $tag = &first(sub {
114 0 0 $tag =~ /=(\d+)/u ? :
118 2 7 if (grep {/^:all$/iu;} @args)
122 2 0 unless $already{':DEFAULT'}
126 18 42 if $v3 and not $v1 =~ /^[ah]/u
131 0 336 if $already{$subname}++
141 7 2 $exporting_default ? :
142 3 549 unless $subname =~ /^[a-zA-Z]/a
145 58 491 if (defined *$subname{'CODE'}) { }
146 0 58 if ($Debug // 0) > 1
154 0 9 if @_ and not @args
156 0 9 if $Debug
167 0 31 if $Debug
188 0 0 if (Carp::longmess("") =~ /\beval\b/u)
194 0 0 $_[0] ? :
195 0 0 $_[0] ? :
208 0 0 ref $_[0] ? :
209 0 0 ref $_[0] ? :
213 0 0 &blessed($v) ? :
217 0 0 length $_[0] > $_dbmaxlen ? :
220 0 0 unless defined $_
339 39 170534 if ($refstr ne '') { }
170534 0 elsif (&looks_like_number($arg)) { }
346 2168 168405 unless (exists $Data::Dumper::Interp::addrvis_seen->{$addr})
362 1 1 $1 ? :
0 2 unless &addrvis =~ s/^([^\<]*)\<(.*)\>$/$1 ? "$1 $2" : $2;/eru
365 0 1 unless defined $_[0]
366 0 1 if ($_[0] <= $addrvis_ndigits)
387 0 29 if (defined(my $class = &blessed($_[0])))
388 0 0 if overload::Method($class, "\"\"")
393 0 9 $^O eq 'MSWin32' ? :
398 1 11 unless defined $_
399 0 11 if ref $_
400 0 11 if ($^O eq 'MSWin32') { }
409 1 10 if (/["\$`!\\\x{00}-\x{1F}\x{7F}]/u) { }
420 8 12 defined $_ && !ref($_) && !($_ =~ m[[^-=\w_/:\.,]]u) && $_ ne '' && $_ ne 'undef' ? :
425 0 9 if not defined $_ or ref $_
426 0 9 unless my($tilde_prefix, $rest) = m(^( (?:\~[^/\\]*[/\\]?+)? )(.*))sux
427 1 8 $rest eq '' ? :
438 0 7297 if $@
439 6459 838 $blessed && $_[0]->isa('Data::Dumper::Interp') ? :
445 0 140 unless $#_ % 2 == 1
454 1201 0 if length($curr // "") <= 1 or $curr eq $Useqq
556 0 9 if (not "Data::Dumper"->can("Maxrecurse"))
563 0 0 if $@
568 2 8 if (&u($ENV{'COLUMNS'}) =~ /^[1-9]\d*$/u) { }
577 0 16 if open $fh, $_
0 8 -t STDIN ? :
0 8 -t STDOUT ? :
0 8 -t STDERR ? :
585 8 0 $fh ? :
614 0 6024 unless @_ == 1
624 0 6024 if ($maxstringwidth //= 0) >= 2147483647
626 5960 64 unless ref($objects //= []) eq "ARRAY"
629 0 6024 if @orig_values != 1
631 0 6024 if $debug
633 0 6024 unless defined wantarray
638 0 6024 if $listform and $my_maxdepth < 2147483647
640 0 6024 unless $my_visit_depth == 0
643 0 6024 if $debug
663 0 6024 if ($dd_warning or $@)
664 0 0 if $debug
695 17 20 $listform ? :
0 37 unless $opt_refaddr and not $in_overload_replacement and $listform ? $my_visit_depth > 0 : 1
702 0 37 if $debug
706 0 37 if $ix >= 0
708 0 37 if $debug
716 319 160 if (my $class = &blessed($item))
717 0 319 if $debug
721 46 316 if (ref $ospec eq 'Regexp') { }
725 30 48 if $c =~ /$ospec/u
726 0 48 if $seen{$c}++
731 269 47 if $ospec eq 1 or $item->isa($ospec)
735 20 299 unless $enabled
736 160 139 if (overload::Overloaded($item))
737 0 160 if $debug
740 0 160 if $overload_depth++ > 10
743 155 5 if (overload::Method($class, "\"\""))
744 155 0 &_show_as_number($item) ? :
745 0 155 if $debug
747 155 0 if (not $item =~ /^$class=REF/u) { }
752 0 155 if $debug
757 1 4 if (overload::Method($class, "\@{}"))
760 0 1 if $debug
763 1 3 if (overload::Method($class, "%{}"))
766 0 1 if $debug
769 1 2 if (overload::Method($class, "\${}"))
772 0 1 if $debug
775 1 1 if (overload::Method($class, "&{}"))
778 0 1 if $debug
781 1 0 if (overload::Method($class, "*{}"))
784 0 1 if $debug
788 138 1 if ($class eq 'Regexp') { }
795 0 1 if $debug
805 0 8376 if $debug
809 17 8359 unless defined $item
812 319 8040 if defined &blessed($item)
815 3 8037 if &reftype($item)
833 3011 5026 if (&looks_like_number($item) and not $item =~ /^0\d/u) { }
9 5017 elsif ($maxstringwidth and not &_show_as_number($item) and length $item > $maxstringwidth + length($truncsuffix)) { }
834 3010 1 &_show_as_number($item) ? :
837 0 3011 if $debug
843 0 9 if $debug
851 0 1521 if $debug
858 0 319 if $debug
873 161 158 if (&u(scalar &refaddr($nitem)) ne &u(scalar &refaddr($item)))
874 0 161 if $debug
878 0 161 if $debug
888 552 1137 if (ref $item eq 'ARRAY') { }
889 0 552 if $debug
891 0 1137 if $debug
898 0 1689 if ($my_visit_depth >= $my_maxdepth)
899 0 0 unless $my_visit_depth == $my_maxdepth
901 0 0 if $debug
908 0 1689 if $debug
920 554 8 ref $sortkeys ? :
925 0 4 if $debug
934 0 18 if $debug
944 7 11 if ($opt_refaddr)
946 2 5 if $t eq "ARRAY"
947 2 3 if $t eq "HASH"
948 2 1 if $t eq "SCALAR"
961 0 0 if $debug
962 0 0 if $debug
965 0 0 if ($$seenhash{&refaddr($cloned_itemref)}++)
966 0 0 if $debug
1001 0 0 if (tied $$cloned_itemref)
1002 0 0 if $debug
1006 0 0 if tied $$cloned_itemref
1010 0 0 if (&reftype($cloned_itemref) eq "SCALAR")
1011 0 0 if $rt
1012 0 0 if $debug
1017 0 0 unless &reftype($cloned_itemref) eq "REF"
1018 0 0 unless &reftype($orig_itemref) eq "REF"
1020 0 0 if ($rt eq 'SCALAR' or $rt eq 'LVALUE' or $rt eq 'REF') { }
0 0 elsif ($rt eq 'ARRAY') { }
0 0 elsif ($rt eq 'HASH') { }
1021 0 0 if $debug
1025 0 0 if $debug
1026 0 0 if (tied @$$cloned_itemref)
1027 0 0 if $debug
1037 0 0 if $debug
1038 0 0 if (tied %$$cloned_itemref)
1039 0 0 if $debug
1043 0 0 if tied %$$cloned_itemref
1046 0 0 if $debug
1052 0 0 if ($@)
1053 0 0 if $debug
1066 1 4021 unless defined $value
1069 15 4006 if ref $value eq "" and utf8::is_utf8($value)
1096 0 4006 if $Debug
1097 3032 974 if ($@) { }
140 1640 elsif (ref $uand_str_result ne '' and $uand_str_result =~ /NaN|Inf/u) { }
1098 3032 0 if ($@ =~ /".*" isn't numeric/u)
1101 0 0 if ($@ =~ /\& not supported/u)
1105 0 0 if defined &blessed($value)
1107 0 0 if ($@ =~ /no method found/u)
1110 0 0 if defined &blessed($value)
1112 0 0 if $Debug
1123 0 834 if $Debug
1129 28 806 if (&blessed($value)) { }
1131 28 0 if (&blessed(scalar eval {
1132 0 28 if $Debug
1136 0 0 if $Debug
1141 0 806 if $Debug
1155 310 3678 if $i > $#b
1156 0 3678 $a[$i] =~ /^\d+$/u && $b[$i] =~ /^\d+$/u ? :
1158 3678 0 if $r != 0
1160 482 0 if $#a < $#b
1205 3498 11546 if (/^"/u)
1215 1 311 length $+{'hex'} > 6 ? :
1216 2 310 $_ > 1114111 ? :
1219 3 309 /\P{XPosixGraph}|[\0-\177]/u || /\p{General_Category=Format}/u ? :
1226 1653 0 if (s/^"//u)
1227 0 1653 unless s/"$//u
1229 0 1653 unless $r
1255 0 551 unless /^"/u
1262 0 0 if (/^"/u)
1272 0 0 @_ ? :
1683 0 1273 unless defined wantarray
1686 3 1270 unless defined $input
1693 1214 56 $useqq ? :
1698 0 1270 if (/\b((?:ARRAY|HASH|SCALAR)\(0x[a-fA-F0-9]+\))/u)
1700 0 0 unless $warned++
1744 0 3104 unless length $_ > 0
1745 1207 1897 if (/^[\$\@\%]/u) { }
1747 1178 29 if ($i_or_d eq "d")
1750 52 1126 /^\$(?!_)($userident_re)\z/u ? :
1752 939 268 if ($sigl eq '$') { }
203 65 elsif ($sigl eq '@') { }
65 0 elsif ($sigl eq '%') { }
1764 0 1897 if (/^.+?(?<!\\)([\$\@\%])/u)
1771 107 1790 if (@pieces and $pieces[-1][0] eq 'p') { }
1778 0 1270 if (not defined pos $_ or pos $_ < length $_)
1782 0 0 if ($leftover =~ /^[\$\@\%][\s\%\@]/u) { }
1815 1790 2385 if ($meth eq 'p') { }
1178 1207 elsif ($meth eq 'P') { }
1816 463 1327 if ($str =~ /\\./u)
1833 0 0 $_[0] =~ /\W/u && !&looks_like_number($_[0]) ? :
0 0 $_[0] =~ /(?!.*')["\$\@]/u ? :
0 0 $_[0] =~ /\A$userident_re\z/su ? :
1848 2505 1670 if ($methname eq 'p') { }
463 1207 elsif ($methname eq 'e') { }
1858 1121 86 if ($foldwidth)
1860 1121 0 if $leftwid < $self->{'Foldwidth1'}
1875 0 1670 if $evalarg eq ""
1884 1670 1670 if $pkg ne "DB"
1890 45 3260 unless (defined $p)
1894 1625 1635 if ($hasargs)
1921 0 1670 if ($errmsg)
1924 0 0 defined $result[0] ? :
1927 0 463 if @result > 1
1207 463 wantarray ? :