| blib/lib/Perinci/Sub/ValidateArgs.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 29 | 40 | 72.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 144 | 111 | 19 | 19 | $mod_rec->{'use_statement'} and $_->{'use_statement'} |
| 19 | 0 | 19 | $mod_rec->{'use_statement'} and $_->{'use_statement'} and $_->{'use_statement'} eq $mod_rec->{'use_statement'} | |
| 180 | 0 | 1 | 4 | @arg_names and $$meta_args{$arg_names[-1]}{'slurpy'} // $$meta_args{$arg_names[-1]}{'greedy'} |
| 214 | 6 | 4 | 0 | $arg_spec->{'slurpy'} // $arg_spec->{'greedy'} and $i < $#arg_names |
| 229 | 0 | 5 | 5 | defined $start_of_optional and $i >= $start_of_optional |
| line | l | !l | condition |
|---|---|---|---|
| 96 | 6 | 14 | $meta->{'args_as'} // 'hash' |
| 97 | 19 | 1 | $meta->{'args'} // {} |
| 178 | 5 | 0 | $meta_args->{$a}{'pos'} // 9999 |
| 5 | 0 | $meta_args->{$b}{'pos'} // 9999 | |
| 290 | 7 | 3 | &$validator($args{'args'}) // [200, 'OK'] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 153 | 14 | 1 | 5 | $args_as eq 'hash' or $args_as eq 'hashref' |
| 3 | 2 | 0 | $args_as eq 'array' or $args_as eq 'arrayref' | |
| 180 | 4 | 0 | 1 | $$meta_args{$arg_names[-1]}{'slurpy'} // $$meta_args{$arg_names[-1]}{'greedy'} |
| 196 | 0 | 5 | 0 | $start_of_optional //= $i |
| 214 | 4 | 0 | 6 | $arg_spec->{'slurpy'} // $arg_spec->{'greedy'} |