1781 |
map { |
map { |
1782 |
croak "need parametar '$_' for action '$action'" unless ($args->{$_}); |
croak "need parametar '$_' for action '$action'" unless ($args->{$_}); |
1783 |
push @args, $_ . '=' . uri_escape( $args->{$_} ); |
push @args, $_ . '=' . uri_escape( $args->{$_} ); |
1784 |
} ( keys %{ $rest->{required} } ); |
} ( @{ $rest->{required} } ); |
1785 |
|
|
1786 |
map { |
map { |
1787 |
push @args, $_ . '=' . uri_escape( $args->{$_} ) if ($args->{$_}); |
push @args, $_ . '=' . uri_escape( $args->{$_} ) if ($args->{$_}); |
1788 |
} ( keys %{ $rest->{optional} } ); |
} ( @{ $rest->{optional} } ); |
1789 |
|
|
1790 |
} |
} |
1791 |
|
|
1819 |
return @results; |
return @results; |
1820 |
|
|
1821 |
} elsif ($resbody) { |
} elsif ($resbody) { |
1822 |
|
chomp $resbody; |
1823 |
return $resbody; |
return $resbody; |
1824 |
} else { |
} else { |
1825 |
return 0E0; |
return 0E0; |