| line |
true |
false |
branch |
|
101
|
221 |
3 |
$sub_name ? : |
|
105
|
49 |
175 |
if (not defined $params or $params =~ /$EMPTY_PARAM_LIST/u) |
|
107
|
45 |
4 |
$kind eq 'method' ? : |
|
|
3 |
46 |
$std_slurpy ? : |
|
114
|
45 |
4 |
$kind eq 'method' ? : |
|
|
3 |
46 |
$std_slurpy ? : |
|
125
|
106 |
69 |
$kind eq 'method' ? : |
|
131
|
33 |
250 |
unless $param{'raw_param'} =~ /\S/u |
|
134
|
3 |
247 |
if (defined $param{'is_num_constant'}) { } |
|
|
7 |
240 |
elsif (defined $param{'is_str_constant'}) { } |
|
|
2 |
238 |
elsif (defined $param{'is_regex_constant'}) { } |
|
156
|
1 |
174 |
if (not @params and $kind eq 'method') |
|
162
|
33 |
142 |
if ($params =~ s/ (?&WS) --> (?&WS) (.*+) (?(DEFINE) (? \s*+ (\# [^\n]*+ \n \s*+ )*+)) //msux) |
|
167
|
0 |
175 |
if $params =~ /\S/u |
|
180
|
1 |
250 |
if (defined $param->{'constraint'} and not defined $param->{'type'} && $param->{'type'} =~ /\S/u) |
|
185
|
19 |
232 |
if (exists $param->{'nameless'}) |
|
187
|
5 |
2 |
$nameless_pos =~ /(?
|
|
|
1 |
7 |
$nameless_pos =~ /(?
|
|
|
11 |
8 |
$nameless_pos =~ /(?
|
|
199
|
0 |
251 |
if exists $param_named{$param->{'var'}} |
|
207
|
0 |
0 |
exists $param->{'slurpy'} ? : |
|
|
0 |
0 |
exists $param->{'name'} ? : |
|
|
0 |
251 |
if substr($param->{'var'}, 1) eq '_' and $param->{'namedvar'} ne '*@_' |
|
210
|
88 |
95 |
if ($first_param and $kind eq 'method' and $param->{'terminator'} ne ':') |
|
216
|
18 |
233 |
if ($first_param and $param->{'terminator'} and $param->{'terminator'} eq ':') { } |
|
|
213 |
20 |
elsif (not exists $param->{'slurpy'}) { } |
|
217
|
0 |
18 |
if $kind ne 'method' |
|
220
|
0 |
18 |
$param->{'constraint'} ? : |
|
227
|
57 |
156 |
if (exists $param->{'name'}) { } |
|
233
|
0 |
20 |
if defined $slurpy |
|
238
|
2 |
18 |
if (exists $param->{'name'}) { } |
|
241
|
0 |
2 |
if exists $param->{'name'} and $param->{'sigil'} ne '@' |
|
251
|
104 |
71 |
if (@positional) |
|
256
|
6 |
150 |
if ($param->{'sigil'} eq '@') { } |
|
|
2 |
148 |
elsif ($param->{'sigil'} eq '%') { } |
|
259
|
15 |
141 |
$param->{'constraint'} ? : |
|
261
|
36 |
120 |
exists $param->{'default_type'} ? : |
|
266
|
39 |
136 |
if (@named) |
|
271
|
5 |
54 |
if ($param->{'sigil'} eq '@') { } |
|
|
1 |
53 |
elsif ($param->{'sigil'} eq '%') { } |
|
274
|
1 |
58 |
$param->{'constraint'} ? : |
|
276
|
2 |
57 |
exists $param->{'default_type'} ? : |
|
282
|
18 |
157 |
if (defined $slurpy) { } |
|
283
|
17 |
1 |
if ($slurpy->{'var'} ne '@_') |
|
284
|
0 |
17 |
$slurpy->{'constraint'} ? : |
|
293
|
33 |
142 |
defined $return_type ? : |
|
294
|
0 |
175 |
if (defined $return_constraint) |
|
304
|
58 |
1 |
unless $param->{'required'} |
|
323
|
0 |
151 |
if (exists $param->{'type'}) |
|
337
|
17 |
139 |
$var =~ /^(.)__nameless_(\d++[^\W_]++)_parameter__$/u ? : |
|
346
|
36 |
120 |
if (exists $param->{'name'} and exists $param->{'default_type'}) |
|
347
|
9 |
27 |
if ($param->{'default_type'} eq '//=' and $param->{'sigil'} eq '$') { } |
|
|
10 |
17 |
elsif ($param->{'default_type'} eq '||=') { } |
|
358
|
101 |
55 |
unless exists $param->{'type'} |
|
385
|
2 |
57 |
exists $param->{'slurpy'} ? : |
|
389
|
2 |
57 |
if (exists $param->{'name'} and exists $param->{'default'}) |
|
393
|
0 |
1 |
$param->{'default_type'} eq '||=' ? : |
|
|
1 |
1 |
$param->{'default_type'} eq '//=' ? : |
|
404
|
19 |
40 |
unless exists $param->{'type'} |
|
406
|
1 |
39 |
exists $param->{'slurpy'} ? : |
|
421
|
0 |
17 |
unless defined $param |
|
425
|
2 |
15 |
$param->{'var'} =~ /^(.)__nameless_.*_parameter__$/u ? : |
|
430
|
2 |
15 |
if ($param->{'sigil'} eq '%') |
|
435
|
1 |
0 |
$special eq 'alias' ? : |
|
|
0 |
1 |
$special eq 'alias' && $] < 5.022 ? : |
|
|
0 |
1 |
$special eq 'ro' ? : |
|
|
16 |
1 |
!$special ? : |
|
441
|
3 |
14 |
exists $param->{'default'} ? : |
|
445
|
1 |
16 |
if (exists $param->{'type'}) |
|
450
|
1 |
16 |
if (exists $param->{'required'}) |
|
462
|
372 |
13 |
if ($sigil eq '$') |
|
463
|
2 |
368 |
$special eq 'alias' ? : |
|
|
0 |
370 |
$special eq 'alias' && $] < 5.022 ? : |
|
|
2 |
370 |
$special eq 'ro' ? : |
|
470
|
10 |
3 |
if ($sigil eq '@') |
|
471
|
0 |
10 |
$special eq 'alias' ? : |
|
|
0 |
10 |
$special eq 'alias' && $] < 5.022 ? : |
|
|
0 |
10 |
$special eq 'ro' ? : |
|
480
|
3 |
0 |
if ($sigil eq '%') |
|
481
|
0 |
3 |
$special eq 'alias' ? : |
|
|
0 |
3 |
$special eq 'alias' && $] < 5.022 ? : |
|
|
0 |
3 |
$special eq 'ro' ? : |
|
497
|
4 |
360 |
if ($special) |
|
498
|
2 |
2 |
if ($special eq 'ro') { } |
|
|
0 |
2 |
elsif ($special eq 'alias' and $] < 5.022) { } |
|
500
|
0 |
2 |
unless eval {
do {
require Const::Fast;
1
}
} |
|
504
|
0 |
0 |
unless eval {
do {
require Data::Alias;
1
}
} |
|
513
|
36 |
328 |
if (defined $default) |
|
514
|
0 |
1 |
$sigil eq '@' ? : |
|
|
8 |
1 |
$sigil eq '$' ? : |
|
517
|
33 |
3 |
$sigil eq '$' ? : |
|
523
|
57 |
307 |
$name ? : |
|
537
|
0 |
2 |
if ($special eq 'alias' and $] < 5.022) |
|
539
|
0 |
0 |
unless eval {
do {
require Data::Alias;
1
}
} |
|
543
|
0 |
2 |
$special eq 'alias' ? : |
|
|
0 |
2 |
$special eq 'alias' && $] >= 5.022 ? : |
|
554
|
16 |
80 |
$constraint ? : |
|
559
|
94 |
2 |
if ($sigil eq '$') |
|
562
|
2 |
0 |
if ($sigil eq '@') |
|
563
|
1 |
1 |
if $is_slurpy |
|
566
|
0 |
0 |
if ($sigil eq '%') |
|
751
|
1 |
27 |
$constraint ? : |
|
752
|
0 |
28 |
if ($constraint and not defined $type) |
|
757
|
14 |
14 |
$traits =~ /\brw\b/u ? : |
|
767
|
8 |
13 |
$sigil eq '%' ? : |
|
|
7 |
21 |
$sigil eq '@' ? : |
|
774
|
28 |
0 |
if ($type) |
|
781
|
3 |
25 |
$twigil ne '.' ? : |
|
786
|
0 |
0 |
unless $delegation |
|
787
|
0 |
0 |
if ($delegation =~ /^:(.*)<(.*)>$/msux) { } |
|
796
|
19 |
9 |
$required ? : |
|
800
|
15 |
0 |
if ($sigil =~ /[\@%]/u and !$initializer || $initializer =~ /\A \s*+ \z/msux) |
|
805
|
16 |
12 |
if ($initializer =~ m[\A \s*+ (? // \s*+ )? = (? .*+ ) ]msux) { } |
|
810
|
7 |
9 |
if ($sigil eq '@') { } |
|
|
8 |
1 |
elsif ($sigil eq '%') { } |
|
813
|
15 |
1 |
$init_field{'DEFAULT_INIT'} ? : |
|
821
|
13 |
15 |
if ($sigil eq '$') { } |
|
822
|
0 |
13 |
$] < 5.022 ? : |
|
826
|
0 |
15 |
$] < 5.022 ? : |
|
831
|
28 |
0 |
if ($type) |
|
844
|
2 |
1 |
$constraint ? : |
|
845
|
0 |
3 |
if ($constraint and not defined $type) |
|
851
|
3 |
0 |
if (defined $type) |
|
865
|
1 |
4 |
$constraint ? : |
|
866
|
0 |
5 |
if ($constraint and not defined $type) |
|
875
|
1 |
4 |
$traits =~ /\brw\b/u ? : |
|
879
|
0 |
5 |
$twigil ne '.' ? : |
|
883
|
1 |
4 |
if ($type) { } |
|
891
|
1 |
4 |
if ($type) |
|
913
|
28 |
30 |
if ($kind eq 'method') { } |
|
926
|
103 |
187 |
if (defined $match) { } |
|
936
|
25 |
33 |
if @variants == 1 |
|
941
|
6 |
0 |
$args =~ /\A \( .* \) \Z/msux ? : |
|
944
|
6 |
27 |
if @variants == 0 |
|
952
|
0 |
0 |
$args =~ /\A \( .* \) \Z/msux ? : |
|
955
|
0 |
27 |
if @variants == 0 |
|
1048
|
64 |
0 |
if ($invocant_name =~ /\A (\$?+) ([^\W\d]\w*+) \Z/msux) { } |
|
1057
|
64 |
0 |
if (((&CORE::GLOBAL::caller(0))[3] // '') =~ /\b(?:un)?import\Z/u) |
|
1062
|
42 |
968 |
if defined $_ |
|
|
13 |
33 |
@bases ? : |
|
1065
|
64 |
0 |
if (((&CORE::GLOBAL::caller(0))[3] // '') =~ /\b(?:un)?import\Z/u) |
|
1068
|
0 |
0 |
if defined $_ |
|
|
0 |
0 |
@bases ? : |
|
1075
|
30 |
23 |
if (my $return_type = $parameter_list->{'return_type'}) { } |
|
1079
|
22 |
1 |
$sub_name ? : |
|
1086
|
64 |
0 |
if (((&CORE::GLOBAL::caller(0))[3] // '') =~ /\b(?:un)?import\Z/u) |
|
1093
|
0 |
0 |
if (my $return_type = $parameter_list->{'return_type'}) { } |
|
1097
|
0 |
0 |
$sub_name ? : |
|
1102
|
0 |
34 |
if (my $return_type = $parameter_list->{'return_type'}) { } |
|
1117
|
64 |
0 |
if (((&CORE::GLOBAL::caller(0))[3] // '') =~ /\b(?:un)?import\Z/u) |
|
1124
|
0 |
131 |
$] < 5.022 ? : |
|
1125
|
17 |
114 |
$^H{'Dios attrs'} ? : |
|
1129
|
0 |
0 |
if (my $return_type = $parameter_list->{'return_type'}) { } |
|
1131
|
129 |
2 |
$sub_name ? : |
|
1137
|
64 |
0 |
if (((&CORE::GLOBAL::caller(0))[3] // '') =~ /\b(?:un)?import\Z/u) |
|
1141
|
0 |
0 |
$] < 5.022 ? : |
|
1142
|
0 |
0 |
$^H{'Dios attrs'} ? : |
|
1144
|
0 |
6 |
$] < 5.022 ? : |
|
1145
|
1 |
5 |
$^H{'Dios attrs'} ? : |
|
1148
|
0 |
0 |
$sub_name ? : |
|
1149
|
2 |
4 |
if ($sub_name eq 'BUILD') { } |
|
|
3 |
1 |
elsif ($sub_name eq 'DESTROY') { } |
|
1164
|
0 |
3 |
if $parameter_list and not $parameter_list =~ /^\(\s*+\)$/u |
|
1181
|
6 |
0 |
$sub_name ? : |
|
1191
|
0 |
0 |
$] < 5.022 ? : |
|
1192
|
0 |
0 |
$^H{'Dios attrs'} ? : |
|
1196
|
0 |
0 |
if ($sub_name eq 'BUILD') { } |
|
|
0 |
0 |
elsif ($sub_name eq 'DESTROY') { } |
|
1211
|
0 |
0 |
if $parameter_list and not $parameter_list =~ /^\(\s*+\)$/u |
|
1213
|
64 |
0 |
if (((&CORE::GLOBAL::caller(0))[3] // '') =~ /\b(?:un)?import\Z/u) |
|
1227
|
64 |
0 |
if (((&CORE::GLOBAL::caller(0))[3] // '') =~ /\b(?:un)?import\Z/u) |
|
1228
|
0 |
0 |
$sub_name ? : |
|
1238
|
64 |
0 |
if (((&CORE::GLOBAL::caller(0))[3] // '') =~ /\b(?:un)?import\Z/u) |
|
1244
|
64 |
0 |
if (((&CORE::GLOBAL::caller(0))[3] // '') =~ /\b(?:un)?import\Z/u) |
|
1247
|
64 |
0 |
if (((&CORE::GLOBAL::caller(0))[3] // '') =~ /\b(?:un)?import\Z/u) |
|
1248
|
64 |
0 |
if (((&CORE::GLOBAL::caller(0))[3] // '') =~ /\b(?:un)?import\Z/u) |