| line |
true |
false |
branch |
|
134
|
26 |
0 |
if ($] >= 5.01301) { } |
|
|
0 |
0 |
elsif ($] >= 5.013006) { } |
|
|
0 |
0 |
elsif ($] >= 5.009004) { } |
|
138
|
0 |
26 |
unless eval "\n use re qw(regexp_pattern is_regexp);\n *regex= *regexp_pattern;\n " |
|
147
|
0 |
0 |
unless eval "\n use re qw(regexp_pattern is_regexp);\n sub regex {\n if (wantarray) {\n my (\$pat,\$mod) = regexp_pattern(\$_[0]);\n if (\$mod) {\n \$mod =~ tr/dlua?//d;\n }\n return (\$pat,\$mod);\n }\n else {\n return scalar regexp_pattern(\$_[0]);\n }\n }\n 1;\n " |
|
165
|
0 |
0 |
unless eval "\n use re qw(regexp_pattern is_regexp);\n *regex= *regexp_pattern;\n 1;\n " |
|
174
|
0 |
26 |
if ($] <= "5.008") |
|
179
|
0 |
26 |
if ($] < 5.008) { } |
|
205
|
0 |
6 |
unless ref $hash |
|
211
|
85 |
1 |
unless (exists $hash->{$key}) |
|
222
|
0 |
26 |
if ($] <= 5.008008) { } |
|
239
|
0 |
0 |
unless exists $done{$isa} |
|
263
|
2 |
26 |
if ($idx = grep((lc $_[$_] eq "as"), 0 .. $#_)) |
|
735
|
2 |
2 |
unless @_ |
|
804
|
7 |
1010 |
unless (ref $self) |
|
845
|
508 |
32 |
unless (m([^ !""\#\$%&''()*+,\-./0-9:;<=>?\@A-Z[\\\]^_`a-z{|}~])) |
|
859
|
6 |
26 |
if (length $_ != do {
use bytes;
length $_
}) { } |
|
885
|
610 |
1139 |
if ($v =~ /$numeric_rex/) { } |
|
|
1131 |
8 |
elsif (not $v =~ /[^\x20-\x7E]/) { } |
|
898
|
0 |
4768 |
if (not defined $key or $key eq '') { } |
|
|
4236 |
532 |
elsif ($key =~ /$numeric_rex/ or $key =~ /\A-?[A-Za-z_]\w*\z/) { } |
|
926
|
155 |
132 |
do {
$uname =~ /^[-*]/
} ? : |
|
|
287 |
508 |
$uname ? : |
|
931
|
2 |
506 |
unless ($self->{'style'}{'verbose'}) |
|
941
|
2 |
0 |
if ($n <= length $abr) |
|
976
|
0 |
0 |
if $self->{'ref_id'} and $self->{'sv_id'} |
|
989
|
220 |
4470 |
if ($var =~ s/^([\@\%\$])(?=\$)//) { } |
|
997
|
406 |
4284 |
if ($brace and not $rest) { } |
|
999
|
406 |
0 |
wantarray ? : |
|
1011
|
0 |
5712 |
if $Data::Dump::Streamer::DEBUG > 1 |
|
1012
|
0 |
5712 |
if $tname{$type} |
|
1013
|
4580 |
1132 |
if ($type =~ /[[{]/) { } |
|
|
1132 |
0 |
elsif ($type =~ /^[\@\%\$]$/) { } |
|
1017
|
332 |
1335 |
if ($name =~ /^([\@\%\$])(\w+)$/ or $sigil or $name =~ /^\*.*\{(?:SCALAR|HASH|ARRAY)\}$/) |
|
1022
|
2766 |
479 |
if not $name =~ s/^[\@\%]/\$/ or $sigil |
|
1028
|
0 |
4580 |
if $Data::Dump::Streamer::DEBUG > 1 |
|
1030
|
2196 |
2384 |
if ($type eq '[') { } |
|
|
2384 |
0 |
elsif ($type eq '{') { } |
|
1041
|
653 |
479 |
if $name =~ /[\[\{]/ or $name =~ /^\*/ |
|
1043
|
1132 |
0 |
unless substr($name, 0, 1) eq $type and $type ne "\$" |
|
1051
|
0 |
5712 |
if $Data::Dump::Streamer::DEBUG > 1 |
|
1058
|
2681 |
8672 |
unless $key =~ /^(sv|ref|fix|cat|type|names|reqs|cache)/ |
|
1083
|
0 |
0 |
$self->{'special'}{$idx} ? : |
|
|
0 |
0 |
$self->{'svro'}[$idx] ? : |
|
|
0 |
0 |
defined ${$self->{'svdu'}[$idx];} ? : |
|
|
0 |
0 |
!$self->{'svdu'}[$idx] ? : |
|
|
0 |
0 |
defined $self->{'unames'}[$idx - 1] ? : |
|
|
0 |
0 |
$oidx ? : |
|
|
0 |
0 |
$self->{'svon'}{$idx} ? : |
|
1084
|
0 |
0 |
if ($prefix and $oidx) |
|
1096
|
0 |
0 |
defined $self->{$_}[$idx] ? : |
|
1102
|
0 |
0 |
defined ${$self->{'refdu'}[$idx];} ? : |
|
|
0 |
0 |
!$self->{'refdu'}[$idx] ? : |
|
|
0 |
0 |
$oidx ? : |
|
1181
|
53 |
0 |
if $self |
|
1186
|
3 |
37 |
if (&blessed($_[0]) and &blessed($_[0]) eq "Data::Dump::Streamer") |
|
1189
|
21 |
19 |
if (@_) { } |
|
1190
|
14 |
7 |
if (defined wantarray and not wantarray) { } |
|
1201
|
2 |
17 |
if ($obj) { } |
|
1225
|
0 |
2 |
unless ($Data::Dump::Streamer::HasPadWalker) |
|
1232
|
0 |
2 |
if (&blessed($_[0]) and &blessed($_[0]) eq "Data::Dump::Streamer") |
|
1254
|
5 |
2 |
if $name = $pad_vars{&refaddr($_)} |
|
1259
|
2 |
0 |
if (defined wantarray and not wantarray) { } |
|
1283
|
0 |
1 |
if (&blessed($_[0]) and &blessed($_[0]) eq "Data::Dump::Streamer") |
|
1286
|
0 |
1 |
if (@_ % 2) |
|
1298
|
1 |
0 |
if (defined wantarray and not wantarray) { } |
|
1313
|
0 |
2278 |
if $Data::Dump::Streamer::DEBUG |
|
1316
|
680 |
1598 |
if $arg |
|
1318
|
1579 |
699 |
unless ($idx = $self->{'ref'}{$addr}) |
|
1320
|
645 |
934 |
if $arg |
|
1325
|
1579 |
0 |
wantarray ? : |
|
1328
|
35 |
664 |
if $arg |
|
1329
|
699 |
0 |
wantarray ? : |
|
1334
|
0 |
1553 |
if $name =~ /^\$\*/ |
|
1337
|
795 |
758 |
if $arg |
|
1338
|
339 |
1214 |
if ($idx = $self->{'sv'}{$addr}) { } |
|
1344
|
8 |
1206 |
if &isweak($_[1]) |
|
1347
|
139 |
1075 |
if ($self->{'svn'}[$idx] ne $name) |
|
1355
|
0 |
339 |
if ($Data::Dump::Streamer::DEBUG > 9) |
|
1360
|
12 |
327 |
if ($self->{'svn'}[$idx] =~ /^\$\{?\$/ and not $name =~ /^\$\{?\$/) |
|
1365
|
795 |
758 |
if $arg |
|
1366
|
0 |
1553 |
if $self->{'svrt'}{$name} |
|
1412
|
0 |
2263 |
if $Data::Dump::Streamer::DEBUG |
|
1413
|
2235 |
28 |
if (substr($type, 0, 1) ne '*') { } |
|
|
28 |
0 |
elsif ($self->{'style'}{'dumpglob'}) { } |
|
1426
|
84 |
56 |
unless defined $v |
|
1427
|
11 |
45 |
if $t eq "SCALAR" and not defined $$v |
|
1441
|
0 |
352 |
if $Data::Dump::Streamer::DEBUG |
|
1443
|
340 |
12 |
if (@_) { } |
|
|
0 |
12 |
elsif ($self->{'cataloged'}) { } |
|
1463
|
686 |
109 |
if (my $type = &reftype_or_glob(${$$arg{"item"};})) |
|
1481
|
0 |
2280 |
if $Data::Dump::Streamer::DEBUG >= 10 |
|
1492
|
1 |
2283 |
if ($self->{'ref_fz'}{$raddr}) |
|
1493
|
0 |
1 |
if $Data::Dump::Streamer::DEBUG |
|
1496
|
0 |
2283 |
if ($cname =~ /^\*DB::args/) |
|
1497
|
0 |
0 |
if $Data::Dump::Streamer::DEBUG |
|
1502
|
0 |
2283 |
if $Data::Dump::Streamer::DEBUG |
|
1504
|
0 |
2283 |
unless ($raddr) |
|
1505
|
0 |
0 |
if $Data::Dump::Streamer::DEBUG |
|
1511
|
4 |
2279 |
if $frozen |
|
1513
|
1 |
2278 |
if ($self->{'style'}{'ignore'}{"#$raddr"} or $class and $self->{'style'}{'ignore'}{".$class"}) { } |
|
|
149 |
4122 |
elsif ($class and not $self->{'cache_skip_freeze'}{$class}) { } |
|
1516
|
0 |
1 |
if $Data::Dump::Streamer::DEBUG |
|
1524
|
149 |
0 |
if (not defined $freezer) { } |
|
|
0 |
0 |
elsif (ref $freezer) { } |
|
1530
|
290 |
150 |
if ($freezer) { } |
|
|
1 |
149 |
elsif (defined $freezer) { } |
|
1531
|
0 |
290 |
if (ref $freezer) { } |
|
|
6 |
284 |
elsif ($class->can($freezer)) { } |
|
1536
|
0 |
0 |
unless $@ |
|
1543
|
6 |
0 |
unless $@ |
|
1550
|
145 |
4 |
if (not defined $proxy) { } |
|
1564
|
4 |
145 |
if ($thaw) |
|
1567
|
0 |
149 |
if ($postop) |
|
1570
|
149 |
0 |
if (&refaddr($proxy) != $raddr) |
|
1573
|
4 |
145 |
if (ref $proxy) |
|
1583
|
699 |
1579 |
if $dupe |
|
1588
|
0 |
2278 |
if $Data::Dump::Streamer::DEBUG > 9 |
|
1589
|
699 |
1579 |
if $dupe |
|
1595
|
26 |
1553 |
if (defined $class and overload::Overloaded($item)) |
|
1601
|
548 |
1031 |
if ($reftype eq 'SCALAR' or $reftype eq 'REF' or $reftype eq 'GLOB') { } |
|
|
396 |
635 |
elsif ($reftype eq 'ARRAY') { } |
|
|
510 |
125 |
elsif ($reftype eq 'HASH') { } |
|
|
69 |
56 |
elsif ($reftype eq 'CODE') { } |
|
|
5 |
51 |
elsif ($reftype eq 'FORMAT') { } |
|
1607
|
548 |
0 |
if ($cnt > 1) |
|
1611
|
368 |
180 |
if (my $type = &reftype_or_glob($$item)) |
|
1621
|
184 |
951 |
if ($cnt > 1) |
|
1622
|
0 |
184 |
if $Data::Dump::Streamer::DEBUG > 9 |
|
1627
|
679 |
456 |
if (my $type = &reftype_or_glob($item->[$idx])) |
|
1637
|
0 |
510 |
if ($thaw) |
|
1643
|
0 |
510 |
if $keyary and &reftype($keyary) ne "ARRAY" |
|
1645
|
1702 |
0 |
defined $keyary ? : |
|
1653
|
1192 |
0 |
if ($ik) |
|
1656
|
604 |
588 |
if $key_len < length $qk |
|
1661
|
26 |
1166 |
if ($cnt > 1) |
|
1665
|
500 |
692 |
if (my $type = &reftype_or_glob($item->{$key})) |
|
1671
|
496 |
14 |
$key_count > 0 ? : |
|
1672
|
0 |
510 |
$key_len > 8 && 0.66666666666666663 * $key_len > $avg ? : |
|
1682
|
41 |
28 |
if ($pass == 1) |
|
1687
|
39 |
39 |
unless $name =~ /\D/ |
|
1689
|
30 |
9 |
unless ($lex_addr{$addr}) |
|
1691
|
7 |
23 |
if ($lex_name{$name}) { } |
|
1697
|
5 |
2 |
$self->{'style'}{'eclipsename'} =~ /^[^%]*%s/ ? : |
|
1728
|
0 |
51 |
if $ENV{'DDS_STRICT'} |
|
1730
|
26 |
1553 |
if ($isoverloaded) |
|
1734
|
352 |
12 |
if ($pass++ == 1) |
|
1749
|
3 |
27 |
if (exists $items{$addr}) { } |
|
1751
|
2 |
1 |
if (not $self->{'unames'}[$idx]) { } |
|
1778
|
11 |
341 |
if (@add) { } |
|
|
1 |
340 |
elsif ($added) { } |
|
1782
|
3 |
24 |
if ($rt ne 'SCALAR' and $rt ne 'GLOB' and $rt ne 'REF') { } |
|
1821
|
0 |
519 |
@args == 1 ? : |
|
1822
|
0 |
519 |
unless ($fix->[0] =~ /^(var|glob|thaw|ref|sv|#|sub call|lock|bless)$/) |
|
1825
|
0 |
519 |
if ($args[0] eq 'var') { } |
|
1846
|
56 |
0 |
$self->{'style'}{'deparse'} && $self->{'style'}{'deparseglob'} ? : |
|
|
28 |
28 |
$inc_format && $self->{'style'}{'deparse'} && $self->{'style'}{'deparseglob'} ? : |
|
1863
|
957 |
0 |
if (ref $fix) |
|
1866
|
0 |
957 |
if ($type eq '#') { } |
|
|
71 |
886 |
elsif ($type eq 'bless') { } |
|
|
290 |
596 |
elsif ($type eq 'sv') { } |
|
|
436 |
160 |
elsif ($type eq 'ref') { } |
|
|
8 |
152 |
elsif ($type eq 'lock') { } |
|
|
7 |
145 |
elsif ($type eq 'thaw') { } |
|
|
28 |
117 |
elsif ($type eq 'glob') { } |
|
|
0 |
117 |
elsif ($type eq 'var') { } |
|
|
117 |
0 |
elsif ($type eq 'sub call') { } |
|
1871
|
26 |
45 |
if ($isfinal) |
|
1889
|
110 |
180 |
if ($$self{$type . "du"}[$rhs] and ${$$self{$type . "du"}[$rhs];}) |
|
1894
|
110 |
0 |
if ($sigil) |
|
1899
|
110 |
0 |
if ref $dref |
|
1905
|
275 |
161 |
if ($$self{$type . "du"}[$rhs] and ${$$self{$type . "du"}[$rhs];}) |
|
1911
|
36 |
239 |
if ($rhs =~ /^[\@\%\&]/) |
|
1913
|
12 |
24 |
if $class |
|
1921
|
8 |
0 |
if ($self->{'refdu'}[$lhs] and ${$self->{'refdu'}[$lhs];}) |
|
1927
|
4 |
4 |
@$rhs ? : |
|
1936
|
3 |
4 |
if ($isfinal) |
|
1942
|
3 |
0 |
if ($rhs =~ /^(->)?((?:\w*::)*\w+)(\(\))?$/) { } |
|
1943
|
1 |
2 |
if ($3) { } |
|
1965
|
0 |
0 |
if $class |
|
1967
|
0 |
0 |
$self->{'style'}{'declare'} ? : |
|
1975
|
100 |
451 |
if ref $_ |
|
1977
|
69 |
48 |
unless (@r) |
|
1979
|
52 |
259 |
ref $_ ? : |
|
1993
|
0 |
28 |
if $Data::Dump::Streamer::DEBUG and $name |
|
1995
|
9 |
19 |
$name ? : |
|
1998
|
3 |
25 |
if (defined &blessed($lhs) and overload::Overloaded($lhs)) |
|
2008
|
68 |
44 |
if (not defined $v or $t eq "SCALAR" and not defined $$v) |
|
2018
|
44 |
0 |
$gidx ? : |
|
2026
|
27 |
0 |
unless $self->{'style'}{'terse'} |
|
2029
|
0 |
27 |
if $ret |
|
2036
|
28 |
0 |
if ($self->{'style'}{'deparse'} and $self->{'style'}{'deparseglob'}) |
|
2053
|
28 |
0 |
if ref $Bobj eq "B::GV" |
|
2055
|
1 |
27 |
if (ref $Bobj eq "B::FM") |
|
2064
|
3 |
25 |
if ($isoverloaded) |
|
2069
|
26 |
1130 |
if @globs |
|
2136
|
0 |
353 |
if $Data::Dump::Streamer::DEBUG |
|
2138
|
12 |
341 |
if (not $self->{'in_printit'} and @_ || !$self->{'cataloged'}) |
|
2143
|
353 |
0 |
unless ($self->{'fh'}) |
|
2144
|
0 |
353 |
if $Data::Dump::Streamer::DEBUG |
|
2146
|
353 |
0 |
if (defined wantarray) { } |
|
2147
|
9 |
344 |
wantarray ? : |
|
2149
|
0 |
353 |
if $Data::Dump::Streamer::DEBUG |
|
2151
|
0 |
353 |
unless $fh = $class->new |
|
2156
|
0 |
0 |
if $Data::Dump::Streamer::DEBUG |
|
2169
|
0 |
353 |
if $Data::Dump::Streamer::DEBUG > 9 |
|
2178
|
0 |
353 |
if ($self->{'style'}{'special'}) |
|
2180
|
0 |
0 |
if $Data::Dump::Streamer::DEBUG |
|
2187
|
0 |
0 |
$Data::Dump::Streamer::b->{'raddr'} ? : |
|
|
0 |
0 |
$Data::Dump::Streamer::a->{'raddr'} ? : |
|
|
0 |
0 |
unless $self->{'svc'}[$Data::Dump::Streamer::b->{'idx'}] <=> $self->{'svc'}[$Data::Dump::Streamer::a->{'idx'}] |
|
2190
|
0 |
0 |
if $Data::Dump::Streamer::DEBUG |
|
2193
|
2 |
0 |
if ($self->{'style'}{'compress'} and $self->{'style'}{'compressor'}) |
|
2195
|
2 |
0 |
if $prelude |
|
2201
|
11 |
342 |
if $self->{'lexicals'}{'added'} |
|
2207
|
0 |
777 |
if $ret |
|
2214
|
0 |
353 |
if $namestr |
|
2216
|
0 |
353 |
if $Data::Dump::Streamer::DEBUG |
|
2219
|
353 |
0 |
if ($self->{'return'} and defined wantarray) { } |
|
2235
|
2 |
0 |
$_[1] ? : |
|
2253
|
0 |
3570 |
if $Data::Dump::Streamer::DEBUG |
|
2259
|
1496 |
2074 |
if ($idx) { } |
|
2273
|
0 |
1496 |
if $Data::Dump::Streamer::DEBUG |
|
2275
|
1173 |
160 |
!$self->{'svon'}{$idx} ? : |
|
|
316 |
1180 |
if ($pre_dumped and not $self->{'svon'}{$idx} or !$self->{'svon'}{$idx} ? $self->{'svd'}[$idx] < $depth || $name_diff : undef) { } |
|
2286
|
0 |
0 |
if $Data::Dump::Streamer::DEBUG and $self->{'svon'}{$idx} and $pre_dumped and $$pre_dumped |
|
2292
|
0 |
0 |
$name_diff ? : |
|
|
0 |
316 |
if $Data::Dump::Streamer::DEBUG |
|
2298
|
220 |
96 |
if ($is_ref) { } |
|
2299
|
104 |
116 |
if ($self->{'svd'}[$idx] == 1 and not $self->{'style'}{'declare'} or $pre_dumped and $$pre_dumped) { } |
|
2310
|
110 |
6 |
if ($self->{'style'}{'purity'}) { } |
|
2315
|
4 |
106 |
if ($need_do) |
|
2321
|
0 |
110 |
$Data::Dump::Streamer::DEBUG ? : |
|
|
0 |
110 |
!$self->{'style'}{'verbose'} ? : |
|
2327
|
4 |
106 |
if $need_do |
|
2332
|
36 |
60 |
if ($depth == 1) { } |
|
|
52 |
8 |
elsif ($self->{'style'}{'purity'}) { } |
|
2333
|
0 |
36 |
if ($self->{'style'}{'declare'}) |
|
2345
|
0 |
52 |
!$self->{'style'}{'verbose'} ? : |
|
2354
|
0 |
316 |
if $str =~ /\n([^\n]*)\s*\z/ |
|
2356
|
162 |
154 |
$ret ? : |
|
2363
|
0 |
0 |
if $Data::Dump::Streamer::DEBUG and $self->{'special'}{$idx} |
|
2365
|
0 |
1180 |
if $self->{'special'}{$idx} |
|
2366
|
0 |
1180 |
if $self->{'special'}{$idx} |
|
2372
|
2074 |
0 |
unless defined $ro |
|
2374
|
0 |
3254 |
if $Data::Dump::Streamer::DEBUG |
|
2375
|
741 |
2513 |
if ($depth == 1) |
|
2378
|
139 |
0 |
if ($name ne $clean_name and not $name =~ /^\*/ and $self->{'svc'}[$idx] > 1) |
|
2381
|
0 |
139 |
if $Data::Dump::Streamer::DEBUG |
|
2383
|
19 |
120 |
if ($oidx) |
|
2388
|
0 |
19 |
if $Data::Dump::Streamer::DEBUG |
|
2396
|
0 |
139 |
if $Data::Dump::Streamer::DEBUG |
|
2401
|
9 |
732 |
if ($self->{'style'}{'terse'} or $name =~ /^\&/) { } |
|
2405
|
189 |
543 |
$self->{'style'}{'declare'} && !($name =~ /^\*/) && !$self->{'lexicals'}{'added'}{$name} ? : |
|
2415
|
0 |
741 |
if $Data::Dump::Streamer::DEBUG |
|
2420
|
293 |
2961 |
if $is_ref |
|
2436
|
35 |
3219 |
if ($add_do) |
|
2443
|
2002 |
1252 |
if ($iaddr) { } |
|
2444
|
0 |
1252 |
if $Data::Dump::Streamer::DEBUG |
|
2445
|
1136 |
116 |
if (defined $item) { } |
|
2451
|
1 |
10 |
if ($is_ro and not $self->{'style'}{'purity'} and not $self->{'style'}{'terse'}) |
|
2454
|
20 |
1116 |
if ($glob) { } |
|
2455
|
1 |
19 |
if ($glob =~ /^\*Symbol::GEN/) { } |
|
2461
|
19 |
0 |
if ($self->{'style'}{'dumpglob'} and not $self->{'sv_glob_du'}{$glob}++) |
|
2470
|
1114 |
2 |
if ($self->{'style'}{'dualvars'}) |
|
2472
|
2 |
150 |
if (&_could_be_dualvar($item) and 0 + $item ne $item and "$item" != $item) |
|
2484
|
1114 |
2 |
unless ($quoted) |
|
2487
|
2 |
1112 |
if ($style->{'compress'} and $style->{'compressor'} and length $_[1] > $style->{'compress'}) { } |
|
2499
|
0 |
1116 |
if $quoted =~ /\n([^\n]*)\s*\z/ |
|
2502
|
1134 |
2 |
unless ($self->{'style'}{'terse'}) |
|
2503
|
9 |
1125 |
if ($is_ro and $self->{'style'}{'purity'}) { } |
|
|
1 |
1124 |
elsif ($is_ro) { } |
|
2520
|
35 |
3219 |
if $add_do |
|
2523
|
8 |
3246 |
if $self->{'svw'}{$addr} |
|
2531
|
132 |
132 |
$type =~ /[\{\[\(]/ ? : |
|
|
1538 |
264 |
!($name =~ /^[%\@]/) ? : |
|
2535
|
1746 |
56 |
$child ? : |
|
2536
|
982 |
820 |
if ($cond) { } |
|
2540
|
491 |
491 |
$open ? : |
|
2541
|
491 |
491 |
$open ? : |
|
|
491 |
491 |
$open ? : |
|
2545
|
410 |
410 |
$open ? : |
|
|
410 |
410 |
$open ? : |
|
2558
|
51 |
0 |
if $bad < $best |
|
2559
|
49 |
2 |
unless $best |
|
2561
|
0 |
49 |
if $best |
|
2627
|
926 |
94 |
unless defined $class |
|
2631
|
239 |
781 |
unless ($sorter) |
|
2641
|
0 |
1020 |
if $ary and &reftype($ary) ne "ARRAY" |
|
2652
|
0 |
510 |
if ($keyary and $Data::Dump::Streamer::DEBUG) |
|
2664
|
149 |
361 |
$ind && $self->{'style'}{'indentkeys'} ? : |
|
2671
|
149 |
361 |
if ($indkey) |
|
2674
|
0 |
510 |
if $Data::Dump::Streamer::DEBUG == 10 |
|
2679
|
1702 |
0 |
defined $keyary ? : |
|
2680
|
497 |
695 |
if ref $item->{$k} |
|
2681
|
696 |
496 |
if ($kc) { } |
|
2683
|
686 |
10 |
$do_ind ? : |
|
2685
|
686 |
10 |
if ($do_ind) { } |
|
|
0 |
10 |
elsif (not $do_ind || $optspace and $self->{'buf'} > 1024) { } |
|
2697
|
835 |
357 |
if ($indkey) { } |
|
2699
|
835 |
0 |
$indkey >= length $qk ? : |
|
2714
|
6 |
1186 |
if (not $full_indent || $self->{'do_nl'} and $self->{'buf'} < 60) { } |
|
2723
|
6 |
1186 |
if ($alias) |
|
2742
|
389 |
2 |
if ($self->{'style'}{'rle'}) { } |
|
2745
|
16 |
2 |
if ($k) |
|
2746
|
16 |
0 |
$do_ind ? : |
|
2747
|
16 |
0 |
if ($do_ind) { } |
|
|
0 |
0 |
elsif (not $do_ind || $optspace and $self->{'buf'} > 1024) { } |
|
2759
|
0 |
18 |
if (not $full_indent || $self->{'do_nl'} and $self->{'buf'} < 60) { } |
|
2767
|
0 |
18 |
if ($alias) |
|
2780
|
293 |
70 |
if (not &refaddr($item->[$k]) || &readonly($item->[$k]) and !$self->{'sv'}{&refaddr(\$item->[$k])} || $self->{'svt'}[$self->{'sv'}{&refaddr(\$item->[$k])}] == 1) |
|
2805
|
0 |
224 |
if (not defined $$item[$k + $count]) { } |
|
2806
|
0 |
0 |
if defined $v |
|
2810
|
169 |
55 |
if $v ne overload::StrVal($$item[$k + $count]) |
|
2817
|
654 |
14 |
$do_ind ? : |
|
|
668 |
375 |
if $k |
|
2819
|
654 |
389 |
if $do_ind and $k |
|
2820
|
19 |
1024 |
if ($count > 1) |
|
2826
|
18 |
1025 |
if (not $full_indent || $self->{'do_nl'} and $self->{'buf'} < 60) { } |
|
2832
|
46 |
997 |
if ($alias) |
|
2837
|
19 |
1024 |
if ($count > 1) |
|
2852
|
0 |
0 |
do {
@_ == 1
} ? : |
|
|
0 |
0 |
@_ ? : |
|
2863
|
0 |
0 |
@v ? : |
|
2868
|
41 |
0 |
if ($self->{'style'}{'deparse'}) { } |
|
2874
|
1 |
40 |
if (ref($cv->ROOT) =~ /NULL/) |
|
2886
|
39 |
39 |
if $targ =~ /\D/ |
|
2889
|
39 |
0 |
if $self->{'lexicals'}{'a2n'}{$addr} |
|
2898
|
0 |
40 |
if defined $bless |
|
2900
|
0 |
40 |
if defined $bless |
|
2901
|
0 |
40 |
if (not defined $bless and $@ and $@ =~ /^Usage\:\ \-\>coderef2text\(CODEREF\)/) { } |
|
|
0 |
40 |
elsif ($@) { } |
|
2923
|
0 |
40 |
$code =~ /^\s*\(/ ? : |
|
2924
|
40 |
0 |
if ($self->{'style'}{'indent'}) |
|
2929
|
4 |
36 |
if ($name =~ s/^\&//) |
|
2943
|
4 |
0 |
if ($self->{'style'}{'deparse'}) |
|
2947
|
0 |
4 |
if ref $Bobj eq "B::GV" |
|
2948
|
4 |
0 |
if (ref $Bobj eq "B::FM") |
|
2954
|
0 |
4 |
if ($@) |
|
2960
|
4 |
0 |
$self->{'style'}{'indent'} ? : |
|
2984
|
8 |
1 |
unless $self->{'reqs'}{'Symbol'}++ |
|
2985
|
1 |
8 |
if $deref |
|
2988
|
9 |
0 |
if ($self->{'style'}{'dumpglob'} and not $self->{'sv_glob_du'}{$glob}++) |
|
2999
|
0 |
2007 |
unless $addr = &refaddr($item) |
|
3003
|
19 |
232 |
if $class and $class eq "Regexp" and &is_regexp($item) |
|
3005
|
0 |
2007 |
if $Data::Dump::Streamer::DEBUG |
|
3009
|
5 |
2002 |
if ($self->{'ref_fz'}{$addr}) |
|
3011
|
0 |
5 |
if (not $item) { } |
|
|
5 |
0 |
elsif (ref $item) { } |
|
3026
|
1 |
2001 |
if ($ignore or $self->{'style'}{'ignore'}{"#" . ($raddr || $addr)} or defined $class and $self->{'style'}{'ignore'}{".$class"}) |
|
3037
|
0 |
2001 |
unless ($idx) |
|
3044
|
2001 |
0 |
if ($idx) { } |
|
3047
|
182 |
1819 |
if ($pre_dumped and $$pre_dumped) { } |
|
|
301 |
1518 |
elsif ($pre_dumped or $self->{'refd'}[$idx] < $depth) { } |
|
3050
|
0 |
182 |
if $Data::Dump::Streamer::DEBUG |
|
3051
|
58 |
124 |
if ($self->{'refn'}[$idx] =~ /^[\@\%\&]/) { } |
|
3052
|
4 |
54 |
if (&SvREADONLY_ref($item)) |
|
3057
|
20 |
38 |
$class ? : |
|
|
20 |
38 |
$class ? : |
|
3068
|
0 |
301 |
if $Data::Dump::Streamer::DEBUG |
|
3075
|
38 |
263 |
if ($self->{'refn'}[$idx] =~ /^[\@\%\&]/ and not $self->{'style'}{'declare'}) { } |
|
3079
|
12 |
26 |
$class ? : |
|
|
12 |
26 |
$class ? : |
|
3083
|
258 |
5 |
if ($self->{'style'}{'purity'}) { } |
|
3089
|
42 |
216 |
$add_do ? : |
|
|
0 |
258 |
!$self->{'style'}{'verbose'} ? : |
|
|
42 |
216 |
$add_do ? : |
|
3111
|
26 |
1492 |
if (defined $class and overload::Overloaded($item)) |
|
3118
|
4 |
1514 |
if ($thaw) |
|
3119
|
0 |
4 |
if ($thaw =~ /[^\w:>()-]/) { } |
|
3124
|
1 |
3 |
$thaw =~ s/\(\)$// ? : |
|
3126
|
0 |
4 |
if ($inline and $thawtype eq "sub") |
|
3134
|
38 |
1480 |
$add_lock ? : |
|
3135
|
38 |
1480 |
if ($add_lock) |
|
3138
|
8 |
30 |
if (not $name =~ /^\$/) { } |
|
3143
|
26 |
4 |
@hidden_keys ? : |
|
3149
|
84 |
1434 |
if ($add_bless and not $overloaded) |
|
3153
|
0 |
1518 |
if $Data::Dump::Streamer::DEBUG |
|
3154
|
521 |
997 |
if ($type eq 'SCALAR' or $type eq 'REF' or $type eq 'GLOB') { } |
|
|
391 |
606 |
elsif ($type eq 'ARRAY') { } |
|
|
510 |
96 |
elsif ($type eq 'HASH') { } |
|
|
41 |
55 |
elsif ($type eq 'CODE') { } |
|
|
4 |
51 |
elsif ($type eq 'FORMAT') { } |
|
|
2 |
49 |
elsif ($type eq 'IO') { } |
|
|
49 |
0 |
elsif ($type eq 'ORANGE' or $type eq 'Regexp' or $type eq 'REGEXP') { } |
|
3155
|
159 |
362 |
$type eq 'SCALAR' ? : |
|
3156
|
19 |
502 |
$type eq 'GLOB' ? : |
|
3157
|
8 |
513 |
if ($glob =~ /^\*Symbol::GEN/) { } |
|
|
0 |
513 |
elsif (defined $pat) { } |
|
3170
|
110 |
403 |
if $ret |
|
3198
|
110 |
1408 |
if ($add_bless) |
|
3199
|
26 |
84 |
if (defined $overloaded) { } |
|
3206
|
26 |
84 |
if ($isoverloaded) |
|
3210
|
4 |
1514 |
if ($fix_lock and not defined $class) |
|
3213
|
30 |
1488 |
if ($add_lock) |
|
3214
|
26 |
4 |
if (@hidden_keys) |
|
3220
|
4 |
1514 |
if ($thaw) |
|
3221
|
1 |
3 |
if ($inline) { } |
|
3222
|
0 |
1 |
if ($thawtype eq 'sub') { } |
|
|
1 |
0 |
elsif ($thawtype eq 'method') { } |
|
3232
|
1 |
2 |
$thawtype eq 'sub' ? : |
|
3236
|
0 |
1518 |
if (my $postop = $self->{'ref_postop'}{$raddr or $addr}) |
|
3237
|
0 |
0 |
if (ref $postop) { } |
|
3278
|
60 |
5 |
if (@_) { } |
|
|
3 |
2 |
elsif (not defined wantarray) { } |
|
3279
|
0 |
60 |
@_ == 1 && &reftype($_[0]) eq 'ARRAY' ? : |
|
3284
|
0 |
133 |
if $s and not $s =~ /^\*?\w+$/ |
|
3300
|
0 |
1 |
unless $self->{'unames'} |
|
|
1 |
4 |
wantarray ? : |
|
3317
|
5 |
0 |
if (@_) { } |
|
3366
|
0 |
0 |
if (@_) |
|
3392
|
8 |
0 |
if (@_) { } |
|
3395
|
3 |
5 |
if ($val == 0 and length $self->{'style'}{'optspace'}) { } |
|
|
2 |
3 |
elsif (not $self->{'style'}{'indent'} || length $self->{'style'}{'optspace'}) { } |
|
3708
|
2 |
0 |
if (@_ == 1) { } |
|
|
0 |
0 |
elsif (@_ == 2) { } |
|
3722
|
0 |
0 |
wantarray ? : |
|
3755
|
0 |
2 |
if (@_ == 0) |
|
3758
|
0 |
2 |
if @_ > 1 and @_ % 2 |
|
3762
|
0 |
2 |
if (ref $item) { } |
|
3768
|
0 |
2 |
unless (@_) |
|
3771
|
1 |
1 |
if (shift()) { } |
|
3833
|
0 |
0 |
if (@_) { } |
|
3834
|
0 |
0 |
if (ref $_[0]) { } |
|
3845
|
0 |
0 |
wantarray ? : |
|
3851
|
0 |
9 |
if @_ > 2 and @_ % 2 |
|
3858
|
2 |
7 |
if (ref $obj) { } |
|
3862
|
0 |
7 |
unless defined $obj |
|
3865
|
0 |
9 |
unless (@_) |
|
3870
|
0 |
9 |
if (not defined $val) { } |
|
3875
|
5 |
4 |
if (not ref $val) { } |
|
|
2 |
2 |
elsif (&reftype($val) eq 'ARRAY') { } |
|
|
0 |
2 |
elsif (&reftype($val) ne 'CODE') { } |
|
3877
|
0 |
5 |
if !$subref || $name eq '.' and &reftype($subref) ne "CODE" |
|
3883
|
0 |
5 |
unless $subref |
|
3919
|
23 |
0 |
if (defined($name = $scalar_meth{$meth})) { } |
|
|
0 |
0 |
elsif ($meth =~ /[^A-Z]/) { } |
|
3920
|
0 |
23 |
if $Data::Dump::Streamer::DEBUG |
|
3921
|
57 |
164 |
if (@_) { } |
|
|
2 |
0 |
if (@_) { } |
|
|
3 |
0 |
if (@_) { } |
|
|
2 |
0 |
if (@_) { } |
|
|
4 |
0 |
if (@_) { } |
|
|
2 |
0 |
if (@_) { } |
|
3932
|
0 |
23 |
if $@ |
|
3943
|
81 |
0 |
if ($Data::Dump::Streamer::HasPadWalker) |
|
3945
|
0 |
81 |
if ($PadWalker::VERSION < 1) { } |
|
3960
|
0 |
0 |
unless (ref($name_obj[$i]) =~ /SPECIAL/) |
|
3973
|
0 |
0 |
unless my $name = $named{$targ} |
|
3976
|
0 |
0 |
if $op->private & 128 |
|
3979
|
0 |
0 |
if (not $inited{$name}) |
|
4009
|
39 |
6 |
if ($cache{&Data::Dump::Streamer::refaddr($self)} and $cache{&Data::Dump::Streamer::refaddr($self)}{$targ}) |