| line |
true |
false |
branch |
|
59
|
162 |
9 |
unless defined *{"$_[0]::type";}{"CODE"} |
|
67
|
0 |
573465 |
unless my $class = $types{$type} |
|
220
|
0 |
0 |
unless my $magic = $self->{'magic'} |
|
241
|
29003 |
481 |
unless my $magic = $self->{'magic'} |
|
246
|
344 |
137 |
$obj_at ? : |
|
|
2 |
479 |
$ptr_at ? : |
|
264
|
0 |
1 |
unless my $magic = $self->{'magic'} |
|
269
|
1 |
0 |
if $type eq "<" |
|
375
|
1407 |
179479 |
if ($match & 2 and my $blessed = $self->blessed) |
|
376
|
1405 |
2 |
$no_desc ? : |
|
380
|
163855 |
17031 |
unless $self->{'magic'} |
|
383
|
15381 |
1651 |
if (my $obj = $self->df->sv_at($obj_at)) |
|
385
|
540 |
14841 |
$is_strong ? : |
|
|
15381 |
0 |
if ($match & ($is_strong ? 1 : 2)) |
|
386
|
540 |
14841 |
$is_strong ? : |
|
387
|
10360 |
5021 |
$no_desc ? : |
|
392
|
4 |
17028 |
if ($match & 1 and my $ptr = $self->df->sv_at($ptr_at)) |
|
393
|
4 |
0 |
$no_desc ? : |
|
398
|
180886 |
0 |
unless $self->{'annotations'} |
|
400
|
0 |
0 |
unless my $val = $self->df->sv_at($val_at) |
|
402
|
0 |
0 |
$no_desc ? : |
|
406
|
0 |
180886 |
unless wantarray |
|
641
|
0 |
0 |
defined $file ? : |
|
706
|
1025 |
14357 |
if $self->scalar |
|
707
|
499 |
14883 |
if $self->array |
|
708
|
789 |
14593 |
if $self->hash |
|
709
|
12030 |
3352 |
if $self->code |
|
710
|
15374 |
8 |
if $self->egv |
|
711
|
44 |
15338 |
if $self->io |
|
712
|
0 |
15382 |
if $self->form |
|
724
|
20418 |
0 |
if ($match & 1) |
|
726
|
103090 |
19418 |
unless my $sv = $self->$slot |
|
727
|
14392 |
5026 |
$no_desc ? : |
|
732
|
20410 |
8 |
if (my $egv = $self->egv) |
|
736
|
20364 |
46 |
$egv_is_self ? : |
|
|
20410 |
0 |
if ($match & ($egv_is_self ? 2 : 1)) |
|
737
|
20364 |
46 |
$egv_is_self ? : |
|
738
|
15380 |
5030 |
$no_desc ? : |
|
746
|
0 |
4 |
$no_desc ? : |
|
797
|
0 |
217609 |
if $flags |
|
849
|
0 |
5 |
unless defined(my $pv = $self->pv) |
|
850
|
1 |
4 |
if defined $maxlen and $maxlen < length $pv |
|
854
|
3 |
2 |
if ($pv =~ /^[\x20-\x7e]*$/u) { } |
|
859
|
0 |
2 |
$3 ? : |
|
|
0 |
2 |
$2 ? : |
|
|
0 |
2 |
$1 ? : |
|
862
|
1 |
4 |
if $truncated |
|
882
|
1 |
1 |
unless my $glob_at = $self->glob_at |
|
889
|
199935 |
205579 |
if defined $self->uv or defined $self->iv or defined $self->nv or defined $self->pv |
|
898
|
13612 |
94120 |
if defined $self->uv |
|
899
|
18 |
107714 |
if defined $self->iv |
|
900
|
1516 |
106216 |
if defined $self->nv |
|
901
|
48260 |
59472 |
if defined $self->pv |
|
903
|
45630 |
62102 |
unless @flags |
|
914
|
0 |
107829 |
if ($match & 1 and my $ourstash = $self->ourstash) |
|
915
|
0 |
0 |
$no_desc ? : |
|
949
|
0 |
26241 |
if $flags |
|
986
|
116 |
7380 |
$self->is_weak ? : |
|
999
|
116 |
7410 |
$is_weak ? : |
|
|
7526 |
0 |
if ($match & ($is_weak ? 2 : 1) and my $rv = $self->rv) |
|
1000
|
116 |
7410 |
$is_weak ? : |
|
1001
|
7499 |
27 |
$no_desc ? : |
|
1005
|
0 |
7526 |
if ($match & 1 and my $ourstash = $self->ourstash) |
|
1006
|
0 |
0 |
$no_desc ? : |
|
1021
|
0 |
0 |
if $self->uv |
|
1041
|
0 |
0 |
$self->is_backrefs ? : |
|
1053
|
31463 |
25480 |
$n ? : |
|
1085
|
3 |
1 |
unless my $glob_at = $self->glob_at |
|
1102
|
9367 |
12878 |
unless wantarray |
|
1128
|
7144 |
2372 |
if $self->is_unreal |
|
1143
|
10535 |
2419 |
if ($self->is_unreal) { } |
|
1144
|
10535 |
0 |
if ($match & 2) |
|
1146
|
0 |
4374186 |
unless my $sv = $self->elem($idx) |
|
1148
|
26574 |
4347612 |
$no_desc ? : |
|
1155
|
92 |
25002 |
unless my $sv = $self->elem($idx) |
|
1157
|
12840 |
12162 |
$no_desc ? : |
|
1159
|
25001 |
1 |
if ($match & 1) |
|
1160
|
12840 |
12161 |
$no_desc ? : |
|
1163
|
2989 |
0 |
if ($match & 4 and $sv->type eq "REF" and not $sv->{'magic'} and my $rv = $sv->rv) |
|
1164
|
2392 |
597 |
$no_desc ? : |
|
1173
|
0 |
1 |
$no_desc ? : |
|
1209
|
0 |
0 |
if ($match & 1) |
|
1213
|
0 |
0 |
if (my $padnames = $df->sv_at($self->elem_at(0))) |
|
1214
|
0 |
0 |
$no_desc ? : |
|
1219
|
0 |
0 |
unless my $pad = $df->sv_at($self->elem_at($idx)) |
|
1221
|
0 |
0 |
$no_desc ? : |
|
1255
|
0 |
0 |
unless my $namepv = $self->elem($padix) |
|
1256
|
0 |
0 |
unless $namepv->type eq "SCALAR" |
|
1275
|
0 |
0 |
if $namepv = $self->elem($padix) and $namepv->type eq "SCALAR" and $namepv->pv eq $padname |
|
1297
|
0 |
0 |
if ($match & 1) |
|
1302
|
0 |
0 |
unless my $padname = $df->sv_at($self->elem_at($idx)) |
|
1304
|
0 |
0 |
$no_desc ? : |
|
1356
|
0 |
0 |
$padname ? : |
|
1378
|
0 |
4 |
unless my $padix = $self->padcv->padix_from_padname($padname) |
|
1396
|
6272 |
503 |
if ($match & 1 and my $argsav = $svs[0]) |
|
1397
|
6260 |
12 |
$no_desc ? : |
|
1402
|
2850 |
48981 |
unless my $sv = $svs[$idx] |
|
1405
|
242 |
48739 |
unless ($no_desc) |
|
1407
|
86 |
156 |
$padname ? : |
|
1408
|
70 |
172 |
if ($name) { } |
|
1416
|
48981 |
0 |
if ($match & 1) |
|
1417
|
48739 |
242 |
$no_desc ? : |
|
1420
|
423 |
0 |
if ($match & 4 and $sv->type eq "REF" and not $sv->{'magic'} and my $rv = $sv->rv) |
|
1421
|
418 |
5 |
$no_desc ? : |
|
1469
|
2264 |
7747 |
if (my $backrefs = $self->backrefs) |
|
1470
|
2229 |
35 |
if $backrefs->type eq "ARRAY" |
|
1485
|
0 |
3 |
unless my $glob_at = $self->glob_at |
|
1534
|
0 |
534 |
unless wantarray |
|
1543
|
667 |
2193 |
$self->{'name'} ? : |
|
1556
|
5684 |
2273 |
if (my $backrefs = $self->backrefs) |
|
1559
|
5674 |
10 |
if ($backrefs->type eq 'ARRAY') { } |
|
1560
|
5674 |
0 |
if ($match & 1) |
|
1561
|
637 |
5037 |
$no_desc ? : |
|
1565
|
5674 |
0 |
if ($match & 4) |
|
1567
|
25415 |
5321201 |
$no_desc ? : |
|
1573
|
10 |
0 |
if ($match & 2) |
|
1574
|
10 |
0 |
$no_desc ? : |
|
1581
|
24031 |
2267552 |
unless my $sv = $df->sv_at($self->value_at($key)) |
|
1582
|
32094 |
2235458 |
$no_desc ? : |
|
1585
|
2267552 |
0 |
if ($match & 1) |
|
1586
|
32094 |
2235458 |
$no_desc ? : |
|
1589
|
4679 |
0 |
if ($match & 4 and $sv->type eq "REF" and not $sv->{'magic'} and my $rv = $sv->rv) |
|
1590
|
4664 |
15 |
$no_desc ? : |
|
1599
|
0 |
1 |
$no_desc ? : |
|
1602
|
0 |
1 |
$no_desc ? : |
|
1687
|
0 |
1 |
unless my $sv = $self->value($key) |
|
1688
|
1 |
0 |
if ($sv->type eq 'GLOB') { } |
|
|
0 |
0 |
elsif ($sv->type eq 'REF') { } |
|
1727
|
5704 |
0 |
if ($match & 1) |
|
1728
|
0 |
5704 |
if (my $sv = $self->mro_linearall) |
|
1729
|
0 |
0 |
$no_desc ? : |
|
1732
|
1958 |
3746 |
if (my $sv = $self->mro_linearcurrent) |
|
1733
|
393 |
1565 |
$no_desc ? : |
|
1736
|
0 |
5704 |
if (my $sv = $self->mro_nextmethod) |
|
1737
|
0 |
0 |
$no_desc ? : |
|
1740
|
1958 |
3746 |
if (my $sv = $self->mro_isa) |
|
1741
|
393 |
1565 |
$no_desc ? : |
|
1788
|
0 |
43407 |
unless defined $depth |
|
1797
|
43407 |
0 |
if $df->{'perlver'} > 85262335 |
|
1818
|
117277 |
297783 |
if ($(Syntax::Keyword::Match/topic) == 1) { } |
|
|
0 |
297783 |
elsif ($(Syntax::Keyword::Match/topic) == 2) { } |
|
|
43544 |
254239 |
elsif ($(Syntax::Keyword::Match/topic) == 3) { } |
|
|
0 |
254239 |
elsif ($(Syntax::Keyword::Match/topic) == 4) { } |
|
|
172901 |
81338 |
elsif ($(Syntax::Keyword::Match/topic) == 5) { } |
|
|
0 |
81338 |
elsif ($(Syntax::Keyword::Match/topic) == 6) { } |
|
|
23576 |
57762 |
elsif ($(Syntax::Keyword::Match/topic) == 7) { } |
|
|
23646 |
34116 |
elsif ($(Syntax::Keyword::Match/topic) == 8) { } |
|
|
34116 |
0 |
elsif ($(Syntax::Keyword::Match/topic) == 9) { } |
|
|
0 |
0 |
elsif ($(Syntax::Keyword::Match/topic) == 10) { } |
|
1839
|
0 |
43407 |
if ($padlist) |
|
1848
|
43407 |
0 |
if ($df->{'perlver'} >= 85065728) { } |
|
|
0 |
0 |
elsif ($padlist) { } |
|
1861
|
0 |
43407 |
if ($padnames) |
|
1868
|
0 |
0 |
unless my $padnamesv = $padnames->elem($padix) |
|
1869
|
0 |
0 |
if $padnamesv->immortal |
|
1876
|
7 |
23639 |
unless $pad |
|
1885
|
0 |
43407 |
if ($df->ithreads) |
|
1889
|
0 |
0 |
unless my $idxes = $$self{"${type}ix"} |
|
1893
|
0 |
0 |
$e ? : |
|
1897
|
3286 |
40121 |
if ($self->is_cloned and my $oproot = $self->oproot) |
|
1898
|
3286 |
0 |
if (my $protosub = $df->{'protosubs_by_oproot'}{$oproot}) |
|
1967
|
0 |
0 |
$line ? : |
|
2025
|
14026 |
7194 |
unless $self->{'consts_at'} |
|
2045
|
0 |
0 |
$self->stash ? : |
|
2052
|
0 |
23 |
if (defined(my $hekname = $self->hekname)) { } |
|
|
22 |
1 |
elsif (my $glob = $self->glob) { } |
|
2111
|
5 |
11 |
if defined $padnames->[$padix] and defined($thisname = $padnames->[$padix]->name) and $thisname eq $padname |
|
2172
|
5426 |
0 |
$self->{'pads'} ? : |
|
2187
|
7 |
0 |
$self->{'pads'} ? : |
|
2211
|
0 |
3 |
unless $depth |
|
2223
|
6428 |
5973 |
if $self->oproot |
|
2224
|
3652 |
8749 |
if $self->constval |
|
2225
|
5226 |
7175 |
if $self->is_xsub |
|
2227
|
938 |
11463 |
if $self->is_cloned |
|
2228
|
282 |
12119 |
if $self->is_clone |
|
2241
|
15793 |
0 |
$pads ? : |
|
2248
|
325 |
15468 |
$is_weakoutside ? : |
|
|
6489 |
9304 |
if ($match & ($is_weakoutside ? 2 : 1) and my $scope = $self->scope) |
|
2249
|
325 |
6164 |
$is_weakoutside ? : |
|
2250
|
6447 |
42 |
$no_desc ? : |
|
2254
|
13421 |
2372 |
if ($match & 2 and my $stash = $self->stash) |
|
2255
|
10039 |
3382 |
$no_desc ? : |
|
2260
|
1660 |
14133 |
$is_strong_gv ? : |
|
|
15492 |
301 |
if ($match & ($is_strong_gv ? 1 : 2) and my $glob = $self->glob) |
|
2261
|
1660 |
13832 |
$is_strong_gv ? : |
|
2262
|
12109 |
3383 |
$no_desc ? : |
|
2266
|
6798 |
8995 |
if ($match & 1 and my $constval = $self->constval) |
|
2267
|
3652 |
3146 |
$no_desc ? : |
|
2271
|
941 |
14852 |
if ($match & 8 and my $protosub = $self->protosub) |
|
2272
|
938 |
3 |
$no_desc ? : |
|
2280
|
0 |
15793 |
$ithreads ? : |
|
|
15793 |
0 |
if ($match & ($ithreads ? 4 : 1)) |
|
2281
|
0 |
15793 |
$ithreads ? : |
|
2284
|
0 |
33732 |
unless $sv |
|
2285
|
33454 |
278 |
$no_desc ? : |
|
2289
|
0 |
12532 |
unless $sv |
|
2290
|
12426 |
106 |
$no_desc ? : |
|
2295
|
0 |
15793 |
if ($match & 1 and $have_padlist) |
|
2296
|
0 |
0 |
$no_desc ? : |
|
2302
|
0 |
15793 |
$have_padlist ? : |
|
|
15793 |
0 |
if ($match & ($have_padlist ? 4 : 1)) |
|
2303
|
0 |
15793 |
$have_padlist ? : |
|
2305
|
0 |
15793 |
if (my $padnames_av = $self->padnames_av) |
|
2306
|
0 |
0 |
$no_desc ? : |
|
2311
|
2 |
6804 |
unless my $pad = $$pads[$depth - 1] |
|
2313
|
6757 |
47 |
$no_desc ? : |
|
2377
|
36 |
0 |
if ($match & 1) |
|
2378
|
0 |
36 |
if (my $gv = $self->topgv) |
|
2379
|
0 |
0 |
$no_desc ? : |
|
2382
|
0 |
36 |
if (my $gv = $self->formatgv) |
|
2383
|
0 |
0 |
$no_desc ? : |
|
2386
|
0 |
36 |
if (my $gv = $self->bottomgv) |
|
2387
|
0 |
0 |
$no_desc ? : |
|
2428
|
0 |
0 |
if ($match & 1 and my $sv = $self->target) |
|
2429
|
0 |
0 |
$no_desc ? : |
|
2540
|
0 |
0 |
$n ? : |
|
2560
|
0 |
0 |
unless wantarray |
|
2581
|
0 |
0 |
if ($name_or_fieldix =~ /^\d+$/u) { } |
|
2608
|
0 |
0 |
unless my $sv = $self->field($field->fieldix) |
|
2610
|
0 |
0 |
$no_desc ? : |
|
2612
|
0 |
0 |
if ($match & 1) |
|
2613
|
0 |
0 |
$no_desc ? : |
|
2616
|
0 |
0 |
if ($match & 4 and $sv->type eq "REF" and not $sv->{'magic'} and my $rv = $sv->rv) |
|
2617
|
0 |
0 |
$no_desc ? : |
|
2664
|
0 |
0 |
if ($(Syntax::Keyword::Match/topic) == 1) { } |
|
2715
|
0 |
0 |
if ($name_or_fieldix =~ /^\d+$/u) { } |
|
2728
|
0 |
0 |
if $name_or_fieldix =~ /^\d+$/u |
|
2740
|
0 |
0 |
if ($match & 1) |
|
2741
|
0 |
0 |
if (my $sv = $self->adjust_blocks) |
|
2742
|
0 |
0 |
$no_desc ? : |
|
2792
|
0 |
0 |
if ($type == 0) { } |
|
|
0 |
0 |
elsif ($type == 1 or $type == 2) { } |
|
|
0 |
0 |
elsif ($type == 3) { } |
|
|
0 |
0 |
elsif ($type == 4) { } |
|
2832
|
0 |
0 |
if ($field->type == 0) { } |
|
2866
|
0 |
0 |
unless defined(my $idx = &first(sub {
$fields->[$_]->name eq $name;
}
, 0 .. $#$fields)) |
|
2871
|
0 |
0 |
if ($field->type == 0) { } |
|
2920
|
0 |
0 |
unless $match & 1 |
|
2929
|
0 |
0 |
unless $field->type == 0 |
|
2931
|
0 |
0 |
unless my $sv = $df->sv_at($self->field($idx)) |
|
2933
|
0 |
0 |
$no_desc ? : |