blib/lib/Perinci/Sub/ValidateArgs.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 27 | 38 | 71.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
111 | 39 | 7 | 7 | $mod_rec->{'use_statement'} and $_->{'use_statement'} |
7 | 0 | 7 | $mod_rec->{'use_statement'} and $_->{'use_statement'} and $_->{'use_statement'} eq $mod_rec->{'use_statement'} | |
147 | 0 | 1 | 2 | @arg_names and $$meta_args{$arg_names[-1]}{'slurpy'} // $$meta_args{$arg_names[-1]}{'greedy'} |
181 | 4 | 2 | 0 | $arg_spec->{'slurpy'} // $arg_spec->{'greedy'} and $i < $#arg_names |
196 | 0 | 3 | 3 | defined $start_of_optional and $i >= $start_of_optional |
line | l | !l | condition |
---|---|---|---|
63 | 4 | 4 | $meta->{'args_as'} // 'hash' |
64 | 7 | 1 | $meta->{'args'} // {} |
145 | 3 | 0 | $meta_args->{$a}{'pos'} // 9999 |
3 | 0 | $meta_args->{$b}{'pos'} // 9999 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
120 | 4 | 1 | 3 | $args_as eq 'hash' or $args_as eq 'hashref' |
2 | 1 | 0 | $args_as eq 'array' or $args_as eq 'arrayref' | |
147 | 2 | 0 | 1 | $$meta_args{$arg_names[-1]}{'slurpy'} // $$meta_args{$arg_names[-1]}{'greedy'} |
163 | 0 | 3 | 0 | $start_of_optional //= $i |
181 | 2 | 0 | 4 | $arg_spec->{'slurpy'} // $arg_spec->{'greedy'} |