Commit dcbaf0e9 authored by Roman Lacko's avatar Roman Lacko
Browse files

allow arrayref and hashref parameters in API

parent c89bbd79
......@@ -203,7 +203,17 @@ sub create_uri {
# add query parameters
foreach my $param (@{$tmpl->{query} // []}) {
if (exists $args->{$param}) {
$uri->query_param($param => $args->{$param});
if (ref $args->{$param} eq "ARRAY") {
foreach my $val (@{ $args->{$param} }) {
$uri->query_param_append($param, $val);
}
} elsif (ref $args->{$param} eq "HASH") {
while (my ($key, $val) = each %{$args->{$param}}) {
$uri->query_param_append("$param\[$key\]", $val);
}
} else {
$uri->query_param_append($param => $args->{$param});
}
delete $args->{$param};
}
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment