line |
true |
false |
branch |
49
|
0 |
0 |
if (lex_peek(4) =~ /\A(\xE2\x86\x92|-->)/u)
|
60
|
0 |
0 |
if (lex_peek(3) eq '...')
|
65
|
0 |
0 |
if lex_peek(4) =~ /\A(\xE2\x86\x92|-->)/u
|
66
|
0 |
0 |
unless lex_peek() eq ')'
|
71
|
0 |
197 |
$skip ? :
|
76
|
0 |
197 |
if ($found_colon and $peek eq ':') { }
|
|
6 |
191 |
elsif ($peek eq ':') { }
|
|
59 |
132 |
elsif ($peek eq ',') { }
|
|
129 |
3 |
elsif ($peek eq ')') { }
|
|
0 |
0 |
elsif (lex_peek(4) =~ /\A(\xE2\x86\x92|-->)/u) { }
|
123
|
0 |
188 |
unless $self->params
|
125
|
19 |
174 |
if $p->named
|
126
|
35 |
158 |
if $p->slurpy
|
128
|
7 |
186 |
if ($p->invocant) { }
|
|
0 |
186 |
elsif ($has_invocants) { }
|
141
|
0 |
188 |
if $has_slurpy > 1
|
148
|
17 |
115 |
$p->optional ? :
|
|
35 |
132 |
$p->slurpy ? :
|
|
19 |
167 |
$p->named ? :
|
|
7 |
186 |
$p->invocant ? :
|
155
|
132 |
54 |
unless $p->invocant or $p->slurpy or $p->named
|
159
|
0 |
193 |
if length $name > 1 and $already{$name}++
|
161
|
1 |
192 |
if ($name eq '@_')
|
163
|
0 |
1 |
if $self->positional_params
|
164
|
0 |
1 |
if $self->named_params
|
167
|
36 |
157 |
if $p_type eq $zone
|
170
|
149 |
8 |
if ($zone eq 'invocant' || $zone eq 'positional' and $p_type eq 'positional' || $p_type eq 'named' || $p_type eq 'slurpy' || $p_type eq 'optional') { }
|
|
8 |
0 |
elsif ($zone eq 'optional' || $zone eq 'named' and $p_type eq 'slurpy') { }
|
195
|
32 |
11 |
unless $last
|
218
|
192 |
15 |
unless $self->nobble_checks
|
232
|
87 |
29 |
$min == 1 ? :
|
|
116 |
91 |
if defined $min and defined $max and $min == $max
|
239
|
11 |
5 |
$min == 1 ? :
|
|
16 |
75 |
if defined $min and $min > 0
|
246
|
6 |
4 |
$max == 1 ? :
|
|
10 |
81 |
if defined $max
|
265
|
67 |
107 |
if $self->has_named or $self->has_slurpy or $self->yadayada
|
275
|
7 |
22 |
if ($self->has_named or $slurpy and $slurpy->name =~ /\A\%/u or $slurpy and $slurpy->name =~ /\A\$/u and $slurpy->type->is_a_type_of(Types::Standard::HashRef()))
|
281
|
21 |
0 |
if ($] >= 5.022) { }
|
315
|
4 |
17 |
unless ($slurpy or $self->yadayada)
|
409
|
17 |
0 |
if $tmp
|