- my $param;
- foreach my $p (keys %$fixed_param) {
- $param->{$p} = $fixed_param->{$p};
- }
-
- my $list_param;
- if ($arg_param) {
- if (ref($arg_param)) {
- foreach my $p (@$arg_param) {
- $param->{$p} = shift @$args if $args->[0] && $args->[0] !~ m/^-\S/;
- }
- } else {
- my $pd = $info->{parameters}->{properties}->{$arg_param};
- die "expected list format $pd->{format}"
- if !($pd && $pd->{format} && $pd->{format} =~ m/-list/);
- $list_param = $arg_param;
- }
- }
-