| line |
true |
false |
branch |
|
10
|
0 |
52 |
if ($] < "5.01") |
|
43
|
0 |
290 |
@_ == 1 ? : |
|
57
|
9 |
281 |
if ($self->{'named_to_list'} and not ref $self->{'named_to_list'}) |
|
61
|
290 |
0 |
if (delete $self->{'rationalize_slurpies'}) |
|
65
|
29 |
256 |
if ($self->{'method'}) |
|
69
|
0 |
0 |
$self->{'package'} ? : |
|
|
0 |
7 |
is_Str($type) ? : |
|
|
22 |
7 |
is_Int($type) ? : |
|
77
|
30 |
122 |
if (defined $self->{'bless'} and $self->{'bless'} eq 1 and not $self->{'named_to_list'}) |
|
80
|
30 |
0 |
unless exists $self->{'oo_trace'} |
|
83
|
8 |
275 |
if (is_ArrayRef($self->{'class'})) |
|
94
|
1 |
29 |
if ($self->has_slurpy) |
|
111
|
155 |
135 |
if ($self->is_named) { } |
|
|
133 |
2 |
elsif (@$parameters) { } |
|
115
|
26 |
355 |
if ($parameter->type->is_strictly_a_type_of(&Slurpy())) { } |
|
|
1 |
354 |
elsif ($parameter->{'slurpy'}) { } |
|
127
|
25 |
130 |
if (@slurpy == 1) { } |
|
|
1 |
129 |
elsif (@slurpy) { } |
|
129
|
24 |
1 |
if ($constraint->type_parameter and $constraint->type_parameter->{'uniq'} == &Any()->{'uniq'} or $constraint->my_slurp_into eq 'HASH') { } |
|
142
|
40 |
93 |
if ($parameters->[-1]->type->is_strictly_a_type_of(&Slurpy())) { } |
|
|
6 |
87 |
elsif ($parameters->[-1]{'slurpy'}) { } |
|
151
|
3 |
181 |
if ($parameter->type->is_strictly_a_type_of(&Slurpy()) or $parameter->{'slurpy'}) |
|
157
|
1 |
284 |
if ($self->{'slurpy'} and $self->{'slurpy'}->has_default) |
|
172
|
381 |
305 |
if ($is_named) |
|
175
|
2 |
684 |
if (is_HashRef($list->[0]) and exists $list->[0]{'slurpy'} and not is_Bool($list->[0]{'slurpy'})) { } |
|
183
|
60 |
626 |
if (is_HashRef($list->[0])) |
|
184
|
58 |
2 |
unless (exists $list->[0]{'slurpy'} and not is_Bool($list->[0]{'slurpy'})) |
|
190
|
3 |
4 |
$type ? : |
|
|
0 |
0 |
$opts{'package'} ? : |
|
|
0 |
679 |
is_Str($type) ? : |
|
|
7 |
679 |
is_Int($type) ? : |
|
210
|
541 |
39 |
unless defined $opts{$pos} |
|
211
|
6 |
33 |
if (is_Int($opts{$pos})) |
|
232
|
2 |
171 |
unless $positional or $named or $multiple |
|
235
|
19 |
291 |
if ($multiple) |
|
236
|
2 |
17 |
unless is_ArrayRef($multiple) |
|
237
|
2 |
17 |
if $positional |
|
238
|
2 |
17 |
if $named |
|
248
|
156 |
135 |
if ($named) |
|
249
|
22 |
134 |
unless exists $opts->{'bless'} |
|
251
|
2 |
154 |
if $positional |
|
276
|
39 |
3 |
defined $_[0]{'method_invocant'} ? : |
|
280
|
298 |
150 |
if exists $_[0]{'can_shortcut'} |
|
299
|
51 |
248 |
if $self->has_head |
|
300
|
16 |
283 |
if $self->has_tail |
|
302
|
69 |
229 |
if ($self->has_slurpy) { } |
|
|
126 |
103 |
elsif ($self->is_named) { } |
|
319
|
33 |
268 |
if (my $next = $self->goto_next) |
|
320
|
32 |
1 |
if (is_CodeLike($next)) { } |
|
329
|
38 |
263 |
if ($self->method) |
|
339
|
51 |
249 |
if ($self->has_head) |
|
342
|
16 |
284 |
if ($self->has_tail) |
|
346
|
150 |
150 |
if ($self->is_named) { } |
|
|
85 |
65 |
elsif ($self->can_shortcut) { } |
|
356
|
6 |
294 |
if ($self->has_on_die) |
|
375
|
1 |
281 |
if (defined $self->strictness and $self->strictness eq 1) { } |
|
|
3 |
278 |
elsif ($self->strictness) { } |
|
|
1 |
277 |
elsif ($self->has_strictness) { } |
|
386
|
51 |
230 |
if $self->has_head |
|
387
|
16 |
265 |
if $self->has_tail |
|
394
|
117 |
412 |
if ($parameter->optional) { } |
|
399
|
1 |
411 |
if $seen_optional and not $is_named |
|
407
|
69 |
211 |
if $self->has_slurpy |
|
416
|
150 |
130 |
if ($is_named) { } |
|
418
|
131 |
19 |
unless $self->head |
|
436
|
143 |
7 |
if $min_args_if_hash |
|
456
|
85 |
45 |
if defined $max_args |
|
461
|
67 |
63 |
if (defined $max_args and $min_args == $max_args) { } |
|
|
10 |
53 |
elsif ($min_args and defined $max_args) { } |
|
502
|
0 |
51 |
unless $self->has_head |
|
533
|
0 |
16 |
unless $self->has_tail |
|
566
|
150 |
149 |
if ($self->is_named) { } |
|
591
|
32 |
117 |
$self->has_head ? : |
|
595
|
119 |
60 |
$can_shortcut ? : |
|
|
119 |
60 |
$can_shortcut ? : |
|
613
|
0 |
69 |
unless $self->has_slurpy |
|
620
|
24 |
45 |
if ($self->is_named) { } |
|
|
1 |
44 |
elsif ($real_type and $real_type->{'uniq'} == &Any()->{'uniq'}) { } |
|
|
29 |
15 |
elsif ($slurp_into eq 'HASH') { } |
|
659
|
24 |
45 |
$self->is_named ? : |
|
674
|
0 |
126 |
if $self->has_strictness and not $self->strictness |
|
678
|
8 |
118 |
if ($Type::Tiny::AvoidCallbacks) |
|
683
|
0 |
126 |
defined $self->strictness && $self->strictness ne 1 ? : |
|
699
|
28 |
270 |
if ($self->bless and $self->oo_trace) |
|
702
|
28 |
0 |
if (defined $package and defined $subname) |
|
725
|
51 |
248 |
if ($self->has_head) |
|
729
|
149 |
150 |
if (not $self->is_named) { } |
|
|
11 |
139 |
elsif ($self->named_to_list) { } |
|
|
24 |
115 |
elsif ($self->class) { } |
|
|
36 |
79 |
elsif ($self->bless) { } |
|
730
|
85 |
64 |
$self->can_shortcut ? : |
|
755
|
16 |
283 |
if ($self->has_tail) |
|
767
|
33 |
284 |
if ($self->goto_next) { } |
|
|
19 |
265 |
elsif ($args{'is_early'} or not exists $args{'is_early'}) { } |
|
768
|
7 |
26 |
if ($list eq '@_') { } |
|
792
|
3 |
442 |
$self->has_on_die ? : |
|
805
|
7 |
676 |
$self->has_on_die ? : |
|
813
|
280 |
0 |
if ($args{'got'}) |
|
820
|
353 |
207 |
unless is_Int($args{$c}) |
|
828
|
5 |
275 |
$self->has_on_die ? : |
|
847
|
1 |
29 |
if ($self->has_slurpy) |
|
854
|
20 |
43 |
if (my $predicate = $parameter->predicate) |
|
855
|
0 |
20 |
unless $predicate =~ /^[^0-9\W]\w*$/ |
|
859
|
63 |
0 |
if (my $getter = $parameter->getter) |
|
860
|
2 |
61 |
unless $getter =~ /^[^0-9\W]\w*$/ |
|
876
|
0 |
30 |
if ($env eq "PP" or $ENV{'PERL_ONLY'}) |
|
886
|
0 |
30 |
unless eval {
do {
require Class::XSAccessor;
"Class::XSAccessor"->VERSION("1.17");
1
}
} |
|
907
|
0 |
0 |
unless eval $code |
|
914
|
6 |
13 |
unless $self->is_named and $self->bless and not $self->named_to_list |
|
955
|
7 |
281 |
if ($self->{'want_source'}) { } |
|
|
1 |
280 |
elsif ($self->{'want_object'}) { } |
|
|
52 |
228 |
elsif ($self->{'want_details'}) { } |