test ({this => 1, that => 2});

sub test {
    my ($self, $args) = @_;
    my %params;

    if ('HASH' eq ref $args) {
        %params = %$args;
    } else {
        ... # Handle single argument
    }
}