| line |
true |
false |
branch |
|
52
|
1599 |
482 |
if (not exists $self->attributes->{'Args'}) { }
|
|
|
20 |
462 |
elsif (not defined $self->attributes->{'Args'}[0]) { }
|
|
|
436 |
26 |
elsif (scalar @{$self->attributes->{'Args'};} == 1 and &looks_like_number($self->attributes->{'Args'}[0])) { }
|
|
75
|
4885 |
4797 |
defined $_[0]->number_of_args ? :
|
|
88
|
0 |
26 |
unless $self->has_args_constraints
|
|
94
|
24 |
2 |
if (scalar @{$self->args_constraints;} == 1) { }
|
|
96
|
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')) { }
|
|
100
|
0 |
2 |
unless $tc->parameters
|
|
102
|
2 |
0 |
if (defined $final)
|
|
103
|
1 |
1 |
if (&blessed($final)) { }
|
|
105
|
0 |
1 |
if ($final->can("is_strictly_a_type_of") and $final->is_strictly_a_type_of("Slurpy"))
|
|
111
|
1 |
0 |
if (ref $final eq "HASH" and $final->{'slurpy'})
|
|
127
|
0 |
4 |
if ($tc->is_a_type_of('Ref')) { }
|
|
153
|
311 |
253 |
unless $self->attributes->{'Args'}
|
|
155
|
311 |
253 |
unless scalar @arg_protos
|
|
156
|
16 |
237 |
unless defined $arg_protos[0]
|
|
162
|
211 |
26 |
if (scalar @arg_protos == 1 and &looks_like_number($arg_protos[0])) { }
|
|
169
|
26 |
0 |
scalar @tc ? :
|
|
185
|
0 |
6 |
unless $self->has_captures_constraints
|
|
191
|
5 |
1 |
if (scalar @{$self->captures_constraints;} == 1) { }
|
|
193
|
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')) { }
|
|
197
|
0 |
1 |
unless $tc->parameters
|
|
198
|
0 |
1 |
if (defined $parameters[-1] and exists $parameters[-1]{'slurpy'}) { }
|
|
213
|
0 |
2 |
if ($tc->is_a_type_of('Ref')) { }
|
|
239
|
15 |
67 |
unless $self->attributes->{'CaptureArgs'}
|
|
241
|
15 |
67 |
unless scalar @arg_protos
|
|
242
|
0 |
67 |
unless defined $arg_protos[0]
|
|
247
|
61 |
6 |
if (scalar @arg_protos == 1 and &looks_like_number($arg_protos[0])) { }
|
|
254
|
6 |
0 |
scalar @tc ? :
|
|
264
|
0 |
32 |
if (defined $name and &blessed($name) and $name->can("check"))
|
|
270
|
1 |
31 |
if ($name =~ /::/)
|
|
271
|
0 |
1 |
unless eval "use Type::Registry; 1"
|
|
273
|
1 |
0 |
defined $tc ? :
|
|
278
|
2 |
29 |
unless (scalar @tc)
|
|
283
|
2 |
0 |
$self->class->can('meta') ? :
|
|
284
|
2 |
0 |
$self->class->can('meta') ? :
|
|
291
|
2 |
2 |
if (my $m = $parent->get_method($self->name))
|
|
292
|
2 |
0 |
if ($m->can("attributes"))
|
|
294
|
2 |
2 |
unless $_ =~ /^Args\(/
|
|
296
|
0 |
2 |
unless $value eq $name
|
|
298
|
2 |
0 |
if (scalar @tc) { }
|
|
299
|
2 |
0 |
ref $_ ? :
|
|
311
|
29 |
0 |
if (scalar @tc) { }
|
|
312
|
28 |
4 |
ref $_ ? :
|
|
328
|
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])) { }
|
|
379
|
0 |
1561 |
unless $args
|
|
383
|
89 |
1472 |
if ($self->has_args_constraints) { }
|
|
386
|
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')) { }
|
|
400
|
7 |
1 |
if ($self->comparable_arg_number == 18446744073709551615 or scalar @args == $self->comparable_arg_number) { }
|
|
417
|
37 |
44 |
unless scalar @args == $self->comparable_arg_number
|
|
420
|
17 |
30 |
unless $self->args_constraints->[$i]->check($args[$i])
|
|
426
|
640 |
832 |
if $self->comparable_arg_number == '18446744073709551615'
|
|
435
|
0 |
653 |
unless $captures
|
|
437
|
192 |
461 |
unless scalar @captures
|
|
438
|
38 |
423 |
$self->has_captures_constraints ? :
|
|
446
|
0 |
51 |
unless $captures
|
|
449
|
0 |
51 |
unless $self->has_captures_constraints
|
|
451
|
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')) { }
|
|
461
|
15 |
30 |
unless $self->captures_constraints->[$i]->check($captures[$i])
|
|
476
|
0 |
0 |
$self->private_path eq $target->private_path ? :
|
|
480
|
14 |
18 |
exists $_[0]->attributes->{'Scheme'} ? :
|