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}) |