| line |
true |
false |
branch |
|
67
|
29 |
131 |
if ($self->is_anonymous) { }
|
|
|
6 |
125 |
elsif ($self->is_lexical) { }
|
|
90
|
0 |
52 |
$_->[1] ? :
|
|
108
|
161 |
27 |
unless ($self->is_anonymous or $self->is_lexical)
|
|
118
|
0 |
0 |
if lex_peek() eq ':' and lex_peek(2) ne ':('
|
|
125
|
182 |
6 |
unless ($sig->has_invocants)
|
|
135
|
10 |
178 |
if (keys %$traits)
|
|
145
|
10 |
0 |
if @custom_traits
|
|
166
|
165 |
23 |
if ($peek =~ /\A(?:\w|::)/u)
|
|
170
|
4 |
161 |
if ($name eq 'my')
|
|
173
|
0 |
0 |
if lex_peek() eq '$'
|
|
176
|
4 |
161 |
if ($saw_my) { }
|
|
187
|
4 |
23 |
if ($peek =~ /\A\$[^\W0-9]/u)
|
|
189
|
0 |
4 |
unless $saw_my
|
|
195
|
0 |
4 |
unless $self->allow_lexical
|
|
201
|
0 |
23 |
unless $self->allow_anonymous
|
|
214
|
0 |
0 |
if (lex_peek() ne '(')
|
|
222
|
0 |
0 |
unless lex_peek() eq ')'
|
|
237
|
3 |
185 |
if ($peek =~ / \A \: \s* \( /msux)
|
|
275
|
0 |
0 |
if (lex_peek() eq ':') { }
|
|
290
|
3 |
4 |
if ($parsed->[0] eq 'prototype') { }
|
|
299
|
0 |
0 |
if (lex_peek() eq ':')
|
|
320
|
0 |
0 |
unless lex_peek(1) eq '{'
|
|
323
|
23 |
165 |
if ($self->is_anonymous) { }
|
|
328
|
0 |
0 |
unless my $code = parse_block(0)
|
|
338
|
7 |
16 |
if (@$attrs)
|
|
357
|
4 |
161 |
if ($self->is_lexical)
|
|
387
|
167 |
29 |
if ($self->{'argh'})
|
|
390
|
6 |
161 |
$self->is_lexical ? :
|
|
391
|
6 |
161 |
$self->is_anonymous || $self->is_lexical ? :
|
|
403
|
32 |
164 |
if $self->signature and $self->signature->_is_dummy
|
|
413
|
194 |
2 |
$self->signature ? :
|
|
415
|
3 |
193 |
if (@rt)
|
|
420
|
3 |
0 |
@scalar == 1 ? :
|
|
|
0 |
3 |
@scalar == 0 ? :
|
|
425
|
1 |
0 |
@list == 1 ? :
|
|
|
2 |
1 |
@list == 0 ? :
|
|
430
|
0 |
0 |
if !$scalar || $scalar->assumed and !$list || $list->assumed
|
|
433
|
3 |
0 |
$scalar ? :
|
|
|
1 |
2 |
$list ? :
|
|
|
3 |
0 |
$scalar ? :
|
|
|
2 |
0 |
$scalar ? :
|
|
|
1 |
2 |
$list ? :
|
|
453
|
150 |
29 |
$self->signature ? :
|
|
455
|
13 |
231 |
if $param->default
|