| 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
|
|
186
|
0 |
0 |
$_[0] ? :
|
|
187
|
0 |
0 |
$_[0] ? :
|
|
200
|
0 |
0 |
ref $_[0] ? :
|
|
201
|
0 |
0 |
ref $_[0] ? :
|
|
205
|
0 |
0 |
&blessed($v) ? :
|
|
209
|
0 |
0 |
length $_[0] > $_dbmaxlen ? :
|
|
212
|
0 |
0 |
unless defined $_
|
|
331
|
39 |
170534 |
if ($refstr ne '') { }
|
|
|
170534 |
0 |
elsif (&looks_like_number($arg)) { }
|
|
338
|
2168 |
168405 |
unless (exists $Data::Dumper::Interp::addrvis_seen->{$addr})
|
|
354
|
1 |
1 |
$1 ? :
|
|
|
0 |
2 |
unless &addrvis =~ s/^([^\<]*)\<(.*)\>$/$1 ? "$1 $2" : $2;/eru
|
|
357
|
0 |
1 |
unless defined $_[0]
|
|
358
|
0 |
1 |
if ($_[0] <= $addrvis_ndigits)
|
|
379
|
0 |
29 |
if (defined(my $class = &blessed($_[0])))
|
|
380
|
0 |
0 |
if overload::Method($class, "\"\"")
|
|
385
|
0 |
9 |
$^O eq 'MSWin32' ? :
|
|
390
|
1 |
11 |
unless defined $_
|
|
391
|
0 |
11 |
if ref $_
|
|
392
|
0 |
11 |
if ($^O eq 'MSWin32') { }
|
|
401
|
1 |
10 |
if (/["\$`!\\\x{00}-\x{1F}\x{7F}]/u) { }
|
|
412
|
8 |
12 |
defined $_ && !ref($_) && !($_ =~ m[[^-=\w_/:\.,]]u) && $_ ne '' && $_ ne 'undef' ? :
|
|
417
|
0 |
9 |
if not defined $_ or ref $_
|
|
418
|
0 |
9 |
unless my($tilde_prefix, $rest) = m(^( (?:\~[^/\\]*[/\\]?+)? )(.*))sux
|
|
419
|
1 |
8 |
$rest eq '' ? :
|
|
430
|
0 |
7297 |
if $@
|
|
431
|
6459 |
838 |
$blessed && $_[0]->isa('Data::Dumper::Interp') ? :
|
|
437
|
0 |
140 |
unless $#_ % 2 == 1
|
|
446
|
1201 |
0 |
if length($curr // "") <= 1 or $curr eq $Useqq
|
|
547
|
0 |
9 |
if (not "Data::Dumper"->can("Maxrecurse"))
|
|
554
|
0 |
0 |
if $@
|
|
559
|
2 |
8 |
if (&u($ENV{'COLUMNS'}) =~ /^[1-9]\d*$/u) { }
|
|
568
|
0 |
16 |
if open $fh, $_
|
|
|
0 |
8 |
-t STDIN ? :
|
|
|
0 |
8 |
-t STDOUT ? :
|
|
|
0 |
8 |
-t STDERR ? :
|
|
576
|
8 |
0 |
$fh ? :
|
|
605
|
0 |
6024 |
unless @_ == 1
|
|
615
|
0 |
6024 |
if ($maxstringwidth //= 0) >= 2147483647
|
|
617
|
5960 |
64 |
unless ref($objects //= []) eq "ARRAY"
|
|
620
|
0 |
6024 |
if @orig_values != 1
|
|
622
|
0 |
6024 |
if $debug
|
|
626
|
0 |
6024 |
if $listform and $my_maxdepth < 2147483647
|
|
628
|
0 |
6024 |
unless $my_visit_depth == 0
|
|
631
|
0 |
6024 |
if $debug
|
|
651
|
0 |
6024 |
if ($dd_warning or $@)
|
|
652
|
0 |
0 |
if $debug
|
|
678
|
319 |
160 |
if (my $class = &blessed($item))
|
|
682
|
46 |
316 |
if (ref $ospec eq 'Regexp') { }
|
|
686
|
30 |
48 |
if $c =~ /$ospec/u
|
|
687
|
0 |
48 |
if $seen{$c}++
|
|
692
|
269 |
47 |
if $ospec eq 1 or $item->isa($ospec)
|
|
696
|
20 |
299 |
unless $enabled
|
|
697
|
160 |
139 |
if (overload::Overloaded($item))
|
|
698
|
0 |
160 |
if $debug
|
|
701
|
0 |
160 |
if $overload_depth++ > 10
|
|
704
|
155 |
5 |
if (overload::Method($class, "\"\""))
|
|
705
|
155 |
0 |
&_show_as_number($item) ? :
|
|
706
|
0 |
155 |
if $debug
|
|
708
|
155 |
0 |
if (not $item =~ /^$class=REF/u) { }
|
|
713
|
0 |
155 |
if $debug
|
|
717
|
1 |
4 |
if (overload::Method($class, "\@{}"))
|
|
718
|
0 |
1 |
if $debug
|
|
722
|
1 |
3 |
if (overload::Method($class, "%{}"))
|
|
723
|
0 |
1 |
if $debug
|
|
727
|
1 |
2 |
if (overload::Method($class, "\${}"))
|
|
728
|
0 |
1 |
if $debug
|
|
732
|
1 |
1 |
if (overload::Method($class, "&{}"))
|
|
733
|
0 |
1 |
if $debug
|
|
737
|
1 |
0 |
if (overload::Method($class, "*{}"))
|
|
738
|
0 |
1 |
if $debug
|
|
743
|
138 |
1 |
if ($class eq 'Regexp') { }
|
|
750
|
0 |
1 |
if $debug
|
|
760
|
0 |
8195 |
if $debug
|
|
764
|
17 |
8178 |
unless defined $item
|
|
767
|
319 |
7859 |
if defined &blessed($item)
|
|
770
|
2 |
7857 |
if &reftype($item)
|
|
788
|
2998 |
4859 |
if (&looks_like_number($item) and not $item =~ /^0\d/u) { }
|
|
|
9 |
4850 |
elsif ($maxstringwidth and not &_show_as_number($item) and length $item > $maxstringwidth + length($truncsuffix)) { }
|
|
789
|
2997 |
1 |
&_show_as_number($item) ? :
|
|
792
|
0 |
2998 |
if $debug
|
|
798
|
0 |
9 |
if $debug
|
|
806
|
0 |
1518 |
if $debug
|
|
821
|
1961 |
37 |
unless $opt_refaddr and !$listform || $my_visit_depth > 0
|
|
825
|
0 |
37 |
if $debug
|
|
826
|
0 |
37 |
if $ix >= 0
|
|
828
|
0 |
37 |
if $debug
|
|
835
|
0 |
319 |
if $debug
|
|
847
|
0 |
319 |
if $debug
|
|
856
|
546 |
1133 |
if (ref $item eq 'ARRAY') { }
|
|
857
|
0 |
546 |
if $debug
|
|
859
|
0 |
1133 |
if $debug
|
|
866
|
0 |
1679 |
if ($my_visit_depth >= $my_maxdepth)
|
|
867
|
0 |
0 |
unless $my_visit_depth == $my_maxdepth
|
|
869
|
0 |
0 |
if $debug
|
|
876
|
0 |
1679 |
if $debug
|
|
888
|
553 |
8 |
ref $sortkeys ? :
|
|
893
|
0 |
3 |
if $debug
|
|
902
|
0 |
18 |
if $debug
|
|
912
|
7 |
11 |
if ($opt_refaddr)
|
|
914
|
2 |
5 |
if $t eq "ARRAY"
|
|
915
|
2 |
3 |
if $t eq "HASH"
|
|
916
|
2 |
1 |
if $t eq "SCALAR"
|
|
929
|
0 |
0 |
if $debug
|
|
930
|
0 |
0 |
if $debug
|
|
933
|
0 |
0 |
if ($$seenhash{&refaddr($cloned_itemref)}++)
|
|
934
|
0 |
0 |
if $debug
|
|
969
|
0 |
0 |
if (tied $$cloned_itemref)
|
|
970
|
0 |
0 |
if $debug
|
|
974
|
0 |
0 |
if tied $$cloned_itemref
|
|
978
|
0 |
0 |
if (&reftype($cloned_itemref) eq "SCALAR")
|
|
979
|
0 |
0 |
if $rt
|
|
980
|
0 |
0 |
if $debug
|
|
985
|
0 |
0 |
unless &reftype($cloned_itemref) eq "REF"
|
|
986
|
0 |
0 |
unless &reftype($orig_itemref) eq "REF"
|
|
988
|
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') { }
|
|
989
|
0 |
0 |
if $debug
|
|
993
|
0 |
0 |
if $debug
|
|
994
|
0 |
0 |
if (tied @$$cloned_itemref)
|
|
995
|
0 |
0 |
if $debug
|
|
1005
|
0 |
0 |
if $debug
|
|
1006
|
0 |
0 |
if (tied %$$cloned_itemref)
|
|
1007
|
0 |
0 |
if $debug
|
|
1011
|
0 |
0 |
if tied %$$cloned_itemref
|
|
1014
|
0 |
0 |
if $debug
|
|
1020
|
0 |
0 |
if ($@)
|
|
1021
|
0 |
0 |
if $debug
|
|
1034
|
1 |
4008 |
unless defined $value
|
|
1037
|
15 |
3993 |
if ref $value eq "" and utf8::is_utf8($value)
|
|
1064
|
0 |
3993 |
if $Debug
|
|
1065
|
3019 |
974 |
if ($@) { }
|
|
|
140 |
1640 |
elsif (ref $uand_str_result ne '' and $uand_str_result =~ /NaN|Inf/u) { }
|
|
1066
|
3019 |
0 |
if ($@ =~ /".*" isn't numeric/u)
|
|
1069
|
0 |
0 |
if ($@ =~ /\& not supported/u)
|
|
1073
|
0 |
0 |
if defined &blessed($value)
|
|
1075
|
0 |
0 |
if ($@ =~ /no method found/u)
|
|
1078
|
0 |
0 |
if defined &blessed($value)
|
|
1080
|
0 |
0 |
if $Debug
|
|
1091
|
0 |
834 |
if $Debug
|
|
1097
|
28 |
806 |
if (&blessed($value)) { }
|
|
1099
|
28 |
0 |
if (&blessed(scalar eval {
|
|
1100
|
0 |
28 |
if $Debug
|
|
1104
|
0 |
0 |
if $Debug
|
|
1109
|
0 |
806 |
if $Debug
|
|
1123
|
407 |
3829 |
if $i > $#b
|
|
1124
|
0 |
3829 |
$a[$i] =~ /^\d+$/u && $b[$i] =~ /^\d+$/u ? :
|
|
1126
|
3829 |
0 |
if $r != 0
|
|
1128
|
385 |
0 |
if $#a < $#b
|
|
1173
|
3498 |
11526 |
if (/^"/u)
|
|
1183
|
1 |
311 |
length $+{'hex'} > 6 ? :
|
|
1184
|
2 |
310 |
$_ > 1114111 ? :
|
|
1187
|
3 |
309 |
/\P{XPosixGraph}|[\0-\177]/u || /\p{General_Category=Format}/u ? :
|
|
1194
|
1653 |
0 |
if (s/^"//u)
|
|
1195
|
0 |
1653 |
unless s/"$//u
|
|
1197
|
0 |
1653 |
unless $r
|
|
1223
|
0 |
551 |
unless /^"/u
|
|
1230
|
0 |
0 |
if (/^"/u)
|
|
1240
|
0 |
0 |
@_ ? :
|
|
1643
|
3 |
1270 |
unless defined $input
|
|
1650
|
1214 |
56 |
$useqq ? :
|
|
1655
|
0 |
1270 |
if (/\b((?:ARRAY|HASH)\(0x[a-fA-F0-9]+\))/u)
|
|
1657
|
0 |
0 |
unless $warned++
|
|
1701
|
0 |
3104 |
unless length $_ > 0
|
|
1702
|
1207 |
1897 |
if (/^[\$\@\%]/u) { }
|
|
1704
|
1178 |
29 |
if ($i_or_d eq "d")
|
|
1707
|
52 |
1126 |
/^\$(?!_)($userident_re)\z/u ? :
|
|
1709
|
939 |
268 |
if ($sigl eq '$') { }
|
|
|
203 |
65 |
elsif ($sigl eq '@') { }
|
|
|
65 |
0 |
elsif ($sigl eq '%') { }
|
|
1720
|
0 |
1897 |
if (/^.+?(?<!\\)([\$\@\%])/u)
|
|
1725
|
107 |
1790 |
if (@pieces and $pieces[-1][0] eq 'p') { }
|
|
1732
|
0 |
1270 |
if (not defined pos $_ or pos $_ < length $_)
|
|
1736
|
0 |
0 |
if ($leftover =~ /^[\$\@\%][\s\%\@]/u) { }
|
|
1747
|
3713 |
462 |
unless $meth eq "p" and $str =~ /\\[abtnfrexXN0-7]/u
|
|
1760
|
0 |
0 |
$_[0] =~ /\W/u && !&looks_like_number($_[0]) ? :
|
|
|
0 |
0 |
$_[0] =~ /(?!.*')["\$\@]/u ? :
|
|
|
0 |
0 |
$_[0] =~ /\A$userident_re\z/su ? :
|
|
1774
|
2506 |
1669 |
if ($methname eq 'p') { }
|
|
|
462 |
1207 |
elsif ($methname eq 'e') { }
|
|
1784
|
1121 |
86 |
if ($foldwidth)
|
|
1786
|
1121 |
0 |
if $leftwid < $self->{'Foldwidth1'}
|
|
1801
|
0 |
1669 |
if $evalarg eq ""
|
|
1810
|
1669 |
1669 |
if $pkg ne "DB"
|
|
1816
|
44 |
3260 |
unless (defined $p)
|
|
1820
|
1625 |
1635 |
if ($hasargs)
|
|
1846
|
0 |
1669 |
if ($errmsg)
|
|
1849
|
0 |
0 |
defined $result[0] ? :
|
|
1852
|
0 |
462 |
if @result > 1
|
|
|
1207 |
462 |
wantarray ? :
|