sub simple_call {
    my ($self, @params) = @_;

    my %params;

    while(my($key, $value) = splice @params, 0, 2) {
        push @{ $params{$key} }, $value;
    }
}