| line |
true |
false |
branch |
|
53
|
1599 |
484 |
if (not exists $self->attributes->{'Args'}) { }
|
|
|
20 |
464 |
elsif (not defined $self->attributes->{'Args'}[0]) { }
|
|
|
438 |
26 |
elsif (scalar @{$self->attributes->{'Args'};} == 1 and &looks_like_number($self->attributes->{'Args'}[0])) { }
|
|
76
|
4889 |
4797 |
defined $_[0]->number_of_args ? :
|
|
89
|
0 |
26 |
unless $self->has_args_constraints
|
|
95
|
24 |
2 |
if (scalar @{$self->args_constraints;} == 1) { }
|
|
97
|
2 |
22 |
if ($tc->can('is_strictly_a_type_of') and $tc->is_strictly_a_type_of('Tuple')) { }
|
|
|
1 |
21 |
elsif ($tc->is_a_type_of('Ref')) { }
|
|
101
|
0 |
2 |
unless $tc->parameters
|
|
103
|
2 |
0 |
if (defined $final)
|
|
104
|
1 |
1 |
if (&blessed($final)) { }
|
|
106
|
0 |
1 |
if ($final->can("is_strictly_a_type_of") and $final->is_strictly_a_type_of("Slurpy"))
|
|
112
|
1 |
0 |
if (ref $final eq "HASH" and $final->{'slurpy'})
|
|
128
|
0 |
4 |
if ($tc->is_a_type_of('Ref')) { }
|
|
154
|
311 |
255 |
unless $self->attributes->{'Args'}
|
|
156
|
311 |
255 |
unless scalar @arg_protos
|
|
157
|
16 |
239 |
unless defined $arg_protos[0]
|
|
163
|
213 |
26 |
if (scalar @arg_protos == 1 and &looks_like_number($arg_protos[0])) { }
|
|
170
|
26 |
0 |
scalar @tc ? :
|
|
186
|
0 |
6 |
unless $self->has_captures_constraints
|
|
192
|
5 |
1 |
if (scalar @{$self->captures_constraints;} == 1) { }
|
|
194
|
1 |
4 |
if ($tc->can('is_strictly_a_type_of') and $tc->is_strictly_a_type_of('Tuple')) { }
|
|
|
0 |
4 |
elsif ($tc->is_a_type_of('Ref')) { }
|
|
198
|
0 |
1 |
unless $tc->parameters
|
|
199
|
0 |
1 |
if (defined $parameters[-1] and exists $parameters[-1]{'slurpy'}) { }
|
|
214
|
0 |
2 |
if ($tc->is_a_type_of('Ref')) { }
|
|
240
|
15 |
67 |
unless $self->attributes->{'CaptureArgs'}
|
|
242
|
15 |
67 |
unless scalar @arg_protos
|
|
243
|
0 |
67 |
unless defined $arg_protos[0]
|
|
248
|
61 |
6 |
if (scalar @arg_protos == 1 and &looks_like_number($arg_protos[0])) { }
|
|
255
|
6 |
0 |
scalar @tc ? :
|
|
265
|
0 |
32 |
if (defined $name and &blessed($name) and $name->can("check"))
|
|
271
|
1 |
31 |
if ($name =~ /::/)
|
|
272
|
0 |
1 |
unless eval "use Type::Registry; 1"
|
|
274
|
1 |
0 |
defined $tc ? :
|
|
279
|
2 |
29 |
unless (scalar @tc)
|
|
284
|
2 |
0 |
$self->class->can('meta') ? :
|
|
285
|
2 |
0 |
$self->class->can('meta') ? :
|
|
292
|
2 |
2 |
if (my $m = $parent->get_method($self->name))
|
|
293
|
2 |
0 |
if ($m->can("attributes"))
|
|
295
|
2 |
2 |
unless $_ =~ /^Args\(/
|
|
297
|
0 |
2 |
unless $value eq $name
|
|
299
|
2 |
0 |
if (scalar @tc) { }
|
|
300
|
2 |
0 |
ref $_ ? :
|
|
312
|
29 |
0 |
if (scalar @tc) { }
|
|
313
|
28 |
4 |
ref $_ ? :
|
|
329
|
30 |
111 |
if (not exists $self->attributes->{'CaptureArgs'}) { }
|
|
|
0 |
111 |
elsif (not defined $self->attributes->{'CaptureArgs'}[0]) { }
|
|
|
105 |
6 |
elsif (scalar @{$self->attributes->{'CaptureArgs'};} == 1 and &looks_like_number($self->attributes->{'CaptureArgs'}[0])) { }
|
|
365
|
2 |
9124 |
if ($self->has_instance) { }
|
|
384
|
0 |
1563 |
unless $args
|
|
388
|
89 |
1474 |
if ($self->has_args_constraints) { }
|
|
391
|
8 |
81 |
if ($self->args_constraint_count == 1 and $self->args_constraints->[0]->is_a_type_of('Ref') || $self->args_constraints->[0]->is_a_type_of('ClassName')) { }
|
|
405
|
7 |
1 |
if ($self->comparable_arg_number == 18446744073709551615 or scalar @args == $self->comparable_arg_number) { }
|
|
422
|
37 |
44 |
unless scalar @args == $self->comparable_arg_number
|
|
425
|
17 |
30 |
unless $self->args_constraints->[$i]->check($args[$i])
|
|
431
|
640 |
834 |
if $self->comparable_arg_number == '18446744073709551615'
|
|
440
|
0 |
653 |
unless $captures
|
|
442
|
192 |
461 |
unless scalar @captures
|
|
443
|
38 |
423 |
$self->has_captures_constraints ? :
|
|
451
|
0 |
51 |
unless $captures
|
|
454
|
0 |
51 |
unless $self->has_captures_constraints
|
|
456
|
13 |
38 |
if ($self->captures_constraints_count == 1 and $self->captures_constraints->[0]->is_a_type_of('Ref') || $self->captures_constraints->[0]->is_a_type_of('ClassName')) { }
|
|
466
|
15 |
30 |
unless $self->captures_constraints->[$i]->check($captures[$i])
|
|
481
|
0 |
0 |
$self->private_path eq $target->private_path ? :
|
|
485
|
14 |
18 |
exists $_[0]->attributes->{'Scheme'} ? :
|