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