| line |
true |
false |
branch |
|
28
|
0 |
5 |
if (ref $a eq 'ARRAY' and ref $b ne 'ARRAY')
|
|
38
|
34 |
1 |
if (ref $sigs[0] eq 'HASH')
|
|
54
|
0 |
84 |
if $multidim
|
|
68
|
1 |
83 |
if $multidim
|
|
70
|
1 |
83 |
if ($$param{'invocant'}) { }
|
|
|
27 |
56 |
elsif ($$param{'named_only'}) { }
|
|
71
|
1 |
0 |
unless $$param{'required'}
|
|
76
|
10 |
17 |
if ($db_param->is_slurpy)
|
|
81
|
13 |
4 |
unless $$param{'required'}
|
|
86
|
34 |
22 |
unless ($db_param->is_slurpy)
|
|
87
|
0 |
34 |
if $now_named
|
|
89
|
3 |
53 |
if $$param{'optional'}
|
|
110
|
19 |
48 |
if ($gv->SAFENAME eq '__ANON__') { }
|
|
219
|
46 |
1 |
ref $$arg[0] && ref $$arg[0] eq 'ARRAY' ? :
|
|
220
|
0 |
47 |
unless defined $inv or @$arg
|
|
224
|
2 |
45 |
if ($multidim) { }
|
|
228
|
0 |
45 |
unless $$self[$i]
|
|
234
|
1 |
36 |
if ($multidim)
|
|
250
|
2 |
4 |
$@ ? :
|
|
256
|
0 |
8 |
if $#{$self;}
|
|
271
|
0 |
0 |
unless not $seen{$_}++
|
|
300
|
2 |
58 |
if ($self->invocant) { }
|
|
301
|
1 |
1 |
unless defined $capture->invocant
|
|
307
|
0 |
58 |
if defined $capture->invocant
|
|
311
|
0 |
59 |
unless $self->named
|
|
313
|
29 |
104 |
if (my $current = delete $$named_arg{$param_name}) { }
|
|
|
0 |
104 |
elsif ($param->default) { }
|
|
|
23 |
81 |
elsif ($param->named_only) { }
|
|
319
|
0 |
0 |
$opts{'no_defaults'} ? :
|
|
322
|
5 |
18 |
unless $param->is_optional
|
|
327
|
21 |
33 |
if ($self->named_slurpy) { }
|
|
336
|
1 |
53 |
unless $self->positional
|
|
337
|
26 |
60 |
if ($param->is_slurpy and $param->p5type ne '$')
|
|
342
|
8 |
52 |
if $bound{$param->name}
|
|
345
|
7 |
45 |
unless ($current)
|
|
347
|
0 |
7 |
if ($param->default)
|
|
348
|
0 |
0 |
$opts{'no_defaults'} ? :
|
|
352
|
5 |
2 |
if $param->is_optional
|
|
358
|
3 |
49 |
if (@$pos_arg)
|
|
371
|
45 |
65 |
$$_[2] ? :
|
|
405
|
0 |
45 |
unless my $ref = $$pad{$self->container_var}
|
|
407
|
26 |
19 |
if ($self->p5type eq '@')
|
|
411
|
2 |
43 |
if (ref $var eq 'ARRAY') { }
|
|
420
|
19 |
0 |
if ($self->p5type eq '%')
|
|
432
|
2 |
53 |
if (my $constraint = $self->constraint)
|
|
433
|
2 |
0 |
ref $var eq 'SCALAR' ? :
|
|
|
1 |
1 |
unless (&$constraint(ref $var eq 'SCALAR' ? $$var : $var, 'level', $lv, 'pad', $pad, 'var', $var, 'param', $self))
|
|
438
|
1 |
53 |
if ($self->p5type eq '&')
|
|
441
|
0 |
53 |
unless my $ref = $$pad{$self->container_var}
|
|
442
|
53 |
0 |
if ($self->p5type eq '$')
|
|
444
|
0 |
53 |
if ($self->is_copy) { }
|
|
|
9 |
44 |
elsif ($self->is_writable) { }
|
|
451
|
0 |
44 |
if (ref $var eq 'ARRAY' or ref $var eq 'HASH') { }
|
|
|
44 |
0 |
elsif (defined $$var) { }
|
|
460
|
0 |
0 |
if ($self->p5type eq '@') { }
|