line |
true |
false |
branch |
59
|
162 |
9 |
unless defined *{"$_[0]::type";}{"CODE"} |
67
|
0 |
573408 |
unless my $class = $types{$type} |
220
|
0 |
0 |
unless my $magic = $self->{'magic'} |
241
|
28995 |
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 |
179463 |
if ($match & 2 and my $blessed = $self->blessed) |
376
|
1405 |
2 |
$no_desc ? : |
380
|
163841 |
17029 |
unless $self->{'magic'} |
383
|
15379 |
1651 |
if (my $obj = $self->df->sv_at($obj_at)) |
385
|
540 |
14839 |
$is_strong ? : |
|
15379 |
0 |
if ($match & ($is_strong ? 1 : 2)) |
386
|
540 |
14839 |
$is_strong ? : |
387
|
10358 |
5021 |
$no_desc ? : |
392
|
4 |
17026 |
if ($match & 1 and my $ptr = $self->df->sv_at($ptr_at)) |
393
|
4 |
0 |
$no_desc ? : |
398
|
180870 |
0 |
unless $self->{'annotations'} |
400
|
0 |
0 |
unless my $val = $self->df->sv_at($val_at) |
402
|
0 |
0 |
$no_desc ? : |
406
|
0 |
180870 |
unless wantarray |
641
|
0 |
0 |
defined $file ? : |
706
|
1025 |
14361 |
if $self->scalar |
707
|
499 |
14887 |
if $self->array |
708
|
793 |
14593 |
if $self->hash |
709
|
12030 |
3356 |
if $self->code |
710
|
15378 |
8 |
if $self->egv |
711
|
44 |
15342 |
if $self->io |
712
|
0 |
15386 |
if $self->form |
724
|
20422 |
0 |
if ($match & 1) |
726
|
103110 |
19422 |
unless my $sv = $self->$slot |
727
|
14396 |
5026 |
$no_desc ? : |
732
|
20414 |
8 |
if (my $egv = $self->egv) |
736
|
20368 |
46 |
$egv_is_self ? : |
|
20414 |
0 |
if ($match & ($egv_is_self ? 2 : 1)) |
737
|
20368 |
46 |
$egv_is_self ? : |
738
|
15384 |
5030 |
$no_desc ? : |
746
|
0 |
4 |
$no_desc ? : |
797
|
0 |
217575 |
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
|
199890 |
205543 |
if defined $self->uv or defined $self->iv or defined $self->nv or defined $self->pv |
898
|
13613 |
94101 |
if defined $self->uv |
899
|
18 |
107696 |
if defined $self->iv |
900
|
1516 |
106198 |
if defined $self->nv |
901
|
48249 |
59465 |
if defined $self->pv |
903
|
45622 |
62092 |
unless @flags |
914
|
0 |
107811 |
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
|
31454 |
25473 |
$n ? : |
1085
|
3 |
1 |
unless my $glob_at = $self->glob_at |
1102
|
9364 |
12876 |
unless wantarray |
1128
|
7142 |
2371 |
if $self->is_unreal |
1143
|
10533 |
2419 |
if ($self->is_unreal) { } |
1144
|
10533 |
0 |
if ($match & 2) |
1146
|
0 |
4374943 |
unless my $sv = $self->elem($idx) |
1148
|
26576 |
4348367 |
$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
|
6270 |
503 |
if ($match & 1 and my $argsav = $svs[0]) |
1397
|
6258 |
12 |
$no_desc ? : |
1402
|
2846 |
48973 |
unless my $sv = $svs[$idx] |
1405
|
242 |
48731 |
unless ($no_desc) |
1407
|
86 |
156 |
$padname ? : |
1408
|
70 |
172 |
if ($name) { } |
1416
|
48973 |
0 |
if ($match & 1) |
1417
|
48731 |
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 |
7761 |
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 |
536 |
unless wantarray |
1543
|
667 |
2197 |
$self->{'name'} ? : |
1556
|
5684 |
2277 |
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
|
25417 |
5322711 |
$no_desc ? : |
1573
|
10 |
0 |
if ($match & 2) |
1574
|
10 |
0 |
$no_desc ? : |
1581
|
24078 |
2269069 |
unless my $sv = $df->sv_at($self->value_at($key)) |
1582
|
32099 |
2236970 |
$no_desc ? : |
1585
|
2269069 |
0 |
if ($match & 1) |
1586
|
32099 |
2236970 |
$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 |
43400 |
unless defined $depth |
1797
|
43400 |
0 |
if $df->{'perlver'} > 85262335 |
1818
|
117242 |
297678 |
if ($(Syntax::Keyword::Match/topic) == 1) { } |
|
0 |
297678 |
elsif ($(Syntax::Keyword::Match/topic) == 2) { } |
|
43516 |
254162 |
elsif ($(Syntax::Keyword::Match/topic) == 3) { } |
|
0 |
254162 |
elsif ($(Syntax::Keyword::Match/topic) == 4) { } |
|
172852 |
81310 |
elsif ($(Syntax::Keyword::Match/topic) == 5) { } |
|
0 |
81310 |
elsif ($(Syntax::Keyword::Match/topic) == 6) { } |
|
23569 |
57741 |
elsif ($(Syntax::Keyword::Match/topic) == 7) { } |
|
23639 |
34102 |
elsif ($(Syntax::Keyword::Match/topic) == 8) { } |
|
34102 |
0 |
elsif ($(Syntax::Keyword::Match/topic) == 9) { } |
|
0 |
0 |
elsif ($(Syntax::Keyword::Match/topic) == 10) { } |
1839
|
0 |
43400 |
if ($padlist) |
1848
|
43400 |
0 |
if ($df->{'perlver'} >= 85065728) { } |
|
0 |
0 |
elsif ($padlist) { } |
1861
|
0 |
43400 |
if ($padnames) |
1868
|
0 |
0 |
unless my $padnamesv = $padnames->elem($padix) |
1869
|
0 |
0 |
if $padnamesv->immortal |
1876
|
7 |
23632 |
unless $pad |
1885
|
0 |
43400 |
if ($df->ithreads) |
1889
|
0 |
0 |
unless my $idxes = $$self{"${type}ix"} |
1893
|
0 |
0 |
$e ? : |
1897
|
3286 |
40114 |
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 |
7191 |
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
|
5425 |
0 |
$self->{'pads'} ? : |
2187
|
7 |
0 |
$self->{'pads'} ? : |
2211
|
0 |
3 |
unless $depth |
2223
|
6426 |
5973 |
if $self->oproot |
2224
|
3652 |
8747 |
if $self->constval |
2225
|
5226 |
7173 |
if $self->is_xsub |
2227
|
938 |
11461 |
if $self->is_cloned |
2228
|
282 |
12117 |
if $self->is_clone |
2241
|
15791 |
0 |
$pads ? : |
2248
|
325 |
15466 |
$is_weakoutside ? : |
|
6487 |
9304 |
if ($match & ($is_weakoutside ? 2 : 1) and my $scope = $self->scope) |
2249
|
325 |
6162 |
$is_weakoutside ? : |
2250
|
6445 |
42 |
$no_desc ? : |
2254
|
13419 |
2372 |
if ($match & 2 and my $stash = $self->stash) |
2255
|
10037 |
3382 |
$no_desc ? : |
2260
|
1660 |
14131 |
$is_strong_gv ? : |
|
15490 |
301 |
if ($match & ($is_strong_gv ? 1 : 2) and my $glob = $self->glob) |
2261
|
1660 |
13830 |
$is_strong_gv ? : |
2262
|
12107 |
3383 |
$no_desc ? : |
2266
|
6798 |
8993 |
if ($match & 1 and my $constval = $self->constval) |
2267
|
3652 |
3146 |
$no_desc ? : |
2271
|
941 |
14850 |
if ($match & 8 and my $protosub = $self->protosub) |
2272
|
938 |
3 |
$no_desc ? : |
2280
|
0 |
15791 |
$ithreads ? : |
|
15791 |
0 |
if ($match & ($ithreads ? 4 : 1)) |
2281
|
0 |
15791 |
$ithreads ? : |
2284
|
0 |
33722 |
unless $sv |
2285
|
33444 |
278 |
$no_desc ? : |
2289
|
0 |
12524 |
unless $sv |
2290
|
12418 |
106 |
$no_desc ? : |
2295
|
0 |
15791 |
if ($match & 1 and $have_padlist) |
2296
|
0 |
0 |
$no_desc ? : |
2302
|
0 |
15791 |
$have_padlist ? : |
|
15791 |
0 |
if ($match & ($have_padlist ? 4 : 1)) |
2303
|
0 |
15791 |
$have_padlist ? : |
2305
|
0 |
15791 |
if (my $padnames_av = $self->padnames_av) |
2306
|
0 |
0 |
$no_desc ? : |
2311
|
2 |
6802 |
unless my $pad = $$pads[$depth - 1] |
2313
|
6755 |
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 ? : |