| blib/lib/Perinci/Sub/ValidateArgs.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 29 | 40 | 72.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 140 | 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'} | |
| 176 | 0 | 1 | 4 | @arg_names and $$meta_args{$arg_names[-1]}{'slurpy'} // $$meta_args{$arg_names[-1]}{'greedy'} |
| 210 | 6 | 4 | 0 | $arg_spec->{'slurpy'} // $arg_spec->{'greedy'} and $i < $#arg_names |
| 225 | 0 | 5 | 5 | defined $start_of_optional and $i >= $start_of_optional |
| line | l | !l | condition |
|---|---|---|---|
| 92 | 6 | 14 | $meta->{'args_as'} // 'hash' |
| 93 | 19 | 1 | $meta->{'args'} // {} |
| 174 | 5 | 0 | $meta_args->{$a}{'pos'} // 9999 |
| 5 | 0 | $meta_args->{$b}{'pos'} // 9999 | |
| 286 | 7 | 3 | &$validator($args{'args'}) // [200, 'OK'] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 149 | 14 | 1 | 5 | $args_as eq 'hash' or $args_as eq 'hashref' |
| 3 | 2 | 0 | $args_as eq 'array' or $args_as eq 'arrayref' | |
| 176 | 4 | 0 | 1 | $$meta_args{$arg_names[-1]}{'slurpy'} // $$meta_args{$arg_names[-1]}{'greedy'} |
| 192 | 0 | 5 | 0 | $start_of_optional //= $i |
| 210 | 4 | 0 | 6 | $arg_spec->{'slurpy'} // $arg_spec->{'greedy'} |