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 ? :