| line |
true |
false |
branch |
|
769
|
34 |
88 |
if (defined $arg)
|
|
770
|
34 |
0 |
if (ref $arg) { }
|
|
|
0 |
0 |
elsif ($arg eq ':DEBUG') { }
|
|
771
|
0 |
34 |
if exists $arg->{'debug'}
|
|
772
|
1 |
33 |
if exists $arg->{'into'}
|
|
774
|
6 |
28 |
if exists $arg->{'compile_at_BEGIN'}
|
|
775
|
27 |
7 |
if (exists $arg->{'invocant'})
|
|
779
|
25 |
2 |
unless ($inv_var =~ / \A \$ [^\W\d]\w* \z /x)
|
|
822
|
189 |
18 |
if (defined $name and $self->_do_compile_at_BEGIN)
|
|
832
|
0 |
207 |
if $DEBUG
|
|
834
|
0 |
207 |
if $DEBUG
|
|
845
|
1 |
201 |
unless exists $hints->{'METHOD_SIGNATURES_compile_at_BEGIN'}
|
|
858
|
231 |
2 |
eval 42 ? :
|
|
884
|
207 |
19 |
if (defined $char and $char eq '(') { }
|
|
894
|
202 |
5 |
if (defined $name)
|
|
897
|
8 |
199 |
$attrs ? :
|
|
928
|
8 |
218 |
if (substr($linestr, $self->offset, 1) eq ':')
|
|
932
|
14 |
12 |
if (substr($linestr, $self->offset, 1) eq ':')
|
|
942
|
14 |
12 |
if (my $len = Devel::Declare::toke_scan_word($self->offset, 0))
|
|
949
|
6 |
8 |
if (substr($linestr, $self->offset, 1) eq '(')
|
|
977
|
2 |
231 |
if _parser_is_fucked()
|
|
983
|
217 |
14 |
defined $proto ? :
|
|
1001
|
0 |
214 |
if $signature->pre_invocant
|
|
1002
|
161 |
53 |
if $signature->invocant
|
|
1008
|
24 |
190 |
if (@{$signature->named_parameters;})
|
|
1010
|
37 |
5 |
unless $_->is_ref_alias
|
|
|
4 |
20 |
if (grep {$_->traits->{'alias'} unless $_->is_ref_alias;} @{$signature->named_parameters;}) { }
|
|
1024
|
21 |
3 |
if $signature->num_named and not $signature->num_yadayada
|
|
1030
|
189 |
25 |
unless $max_argv == $INF
|
|
1081
|
4 |
262 |
if $sig->is_at_underscore
|
|
1088
|
1 |
261 |
if ($sig->is_hash_yadayada)
|
|
1103
|
42 |
219 |
if ($sig->is_named) { }
|
|
1106
|
5 |
37 |
if $sig->is_ref_alias
|
|
1109
|
15 |
199 |
$sig->sigil =~ /^[\@%]$/ ? :
|
|
|
5 |
214 |
$sig->is_ref_alias ? :
|
|
1115
|
42 |
219 |
$sig->is_named ? :
|
|
1122
|
54 |
207 |
if (defined $when) { }
|
|
|
34 |
173 |
elsif (defined $default) { }
|
|
1124
|
6 |
48 |
if ($when =~ /$when_block_re/) { }
|
|
1138
|
124 |
137 |
if ($sig->is_required)
|
|
1139
|
3 |
121 |
if ($sig->is_placeholder) { }
|
|
1147
|
13 |
248 |
if ($sig->is_ref_alias or $sig->traits->{'alias'}) { }
|
|
|
16 |
232 |
elsif ($sig->traits->{'ro'}) { }
|
|
1159
|
54 |
207 |
if ($sig->type)
|
|
1164
|
42 |
219 |
if $deletion_target
|
|
1169
|
4 |
4 |
$constraint =~ /^ \s* \{ (?: .* ; .* | (?:(?! => ). )* ) \} \s* $/sx ? :
|
|
1174
|
1 |
7 |
$sig->is_placeholder ? :
|
|
1182
|
4 |
257 |
if ($sig->is_placeholder)
|
|
1202
|
443 |
33 |
if $num_newlines == 0
|
|
1217
|
9 |
43 |
$sig->is_optional && !defined($sig->default) ? :
|
|
1222
|
51 |
1 |
if ($class->can('type_check') eq 'Method::Signatures'->can('type_check')) { }
|
|
1226
|
1 |
50 |
$sig->is_placeholder ? :
|
|
1233
|
9 |
42 |
if $check_exists
|
|
1241
|
0 |
1 |
if $check_exists
|
|
1315
|
13 |
18 |
unless $mutc{'class'}
|
|
1320
|
1 |
30 |
if ($@)
|
|
1324
|
25 |
5 |
if $constr
|
|
1328
|
0 |
5 |
if $mutc{'isa_role'}->check($type)
|
|
1331
|
3 |
2 |
if $mutc{'isa_class'}->check($type)
|
|
1350
|
0 |
0 |
unless ($mutc{'cache'}{$type}->check($value))
|
|
1363
|
18 |
1 |
defined $value ? :
|
|
1370
|
1 |
0 |
defined $value ? :
|
|
1378
|
14 |
1 |
defined $value ? :
|
|
1385
|
1 |
0 |
defined $value ? :
|