| line |
true |
false |
branch |
|
24
|
109 |
39 |
@args == 1 ? : |
|
26
|
2 |
144 |
unless exists $args{'args'} |
|
31
|
15 |
129 |
if exists $args{'invocant'} |
|
32
|
73 |
71 |
if exists $args{'nshift'} |
|
33
|
23 |
121 |
if $args{'slurpy'} |
|
42
|
487 |
758 |
defined $self->{'invocant'} ? : |
|
50
|
20 |
8 |
&Scalar::Util::blessed($v) && $v->isa('Sub::Meta::Param') ? : |
|
65
|
2 |
91 |
unless (defined $v and $v == 0 || $v == 1) |
|
71
|
31 |
60 |
if ($v == 1 and not defined $self->invocant) |
|
76
|
1 |
90 |
if ($v == 0 and defined $self->invocant) |
|
86
|
44 |
7 |
&Scalar::Util::blessed($v) && $v->isa('Sub::Meta::Param') ? : |
|
94
|
14 |
37 |
if ($self->nshift == 0) |
|
104
|
3 |
157 |
unless @args == 1 and ref $args |
|
107
|
147 |
10 |
if (ref $args eq 'ARRAY') { } |
|
|
5 |
5 |
elsif (ref $args eq 'HASH') { } |
|
114
|
2 |
3 |
$f ? : |
|
127
|
78 |
52 |
&Scalar::Util::blessed($_) && $_->isa('Sub::Meta::Param') ? : |
|
141
|
55 |
33 |
if $_->positional |
|
142
|
25 |
11 |
if $_->positional |
|
145
|
22 |
30 |
if $_->named |
|
146
|
11 |
15 |
if $_->named |
|
158
|
10 |
13 |
if $self->slurpy or @{$self->named;} |
|
168
|
4 |
52 |
unless &Scalar::Util::blessed($other) and $other->isa('Sub::Meta::Parameters') |
|
170
|
11 |
41 |
if ($self->has_slurpy) { } |
|
171
|
3 |
8 |
unless $self->slurpy->is_same_interface($other->slurpy) |
|
174
|
3 |
38 |
if $other->has_slurpy |
|
177
|
6 |
40 |
unless $self->nshift == $other->nshift |
|
179
|
8 |
32 |
unless @{$self->all_args;} == @{$other->all_args;} |
|
182
|
12 |
23 |
unless $self->all_args->[$i]->is_same_interface($other->all_args->[$i]) |
|
191
|
5 |
53 |
unless &Scalar::Util::blessed($other) and $other->isa('Sub::Meta::Parameters') |
|
193
|
11 |
42 |
if ($self->has_slurpy) |
|
194
|
3 |
8 |
unless $self->slurpy->is_same_interface($other->slurpy) |
|
197
|
6 |
44 |
unless $self->nshift == $other->nshift |
|
199
|
2 |
42 |
unless @{$self->all_args;} <= @{$other->all_args;} |
|
202
|
10 |
36 |
unless $self->all_args->[$i]->is_relaxed_same_interface($other->all_args->[$i]) |
|
215
|
2 |
10 |
$self->has_slurpy ? : |
|
236
|
2 |
10 |
if $self->has_slurpy |
|
253
|
3 |
20 |
unless &Scalar::Util::blessed($other) and $other->isa('Sub::Meta::Parameters') |
|
256
|
3 |
17 |
if ($self->has_slurpy) { } |
|
257
|
1 |
1 |
$other->has_slurpy ? : |
|
|
2 |
1 |
unless $self->slurpy->is_same_interface($other->slurpy) |
|
261
|
1 |
16 |
if $other->has_slurpy |
|
264
|
3 |
14 |
unless $self->nshift == $other->nshift |
|
268
|
2 |
12 |
unless @{$self->all_args;} == @{$other->all_args;} |
|
273
|
4 |
5 |
unless $s->is_same_interface($o) |
|
283
|
3 |
20 |
unless &Scalar::Util::blessed($other) and $other->isa('Sub::Meta::Parameters') |
|
286
|
3 |
17 |
if ($self->has_slurpy) |
|
287
|
1 |
1 |
$other->has_slurpy ? : |
|
|
2 |
1 |
unless $self->slurpy->is_same_interface($other->slurpy) |
|
291
|
3 |
15 |
unless $self->nshift == $other->nshift |
|
295
|
1 |
14 |
unless @{$self->all_args;} <= @{$other->all_args;} |
|
300
|
4 |
5 |
unless $s->is_relaxed_same_interface($o) |
|
310
|
1 |
10 |
if $self->invocant and $self->invocant->display |
|
314
|
1 |
10 |
if $s and $self->slurpy |
|
315
|
2 |
9 |
if $self->slurpy |