Select Code to Download

sub get {
    my $self     = shift;
...
    
    return $resp;
}

$object->get('tablename', 10);
$object->get('dbname.tablename', 10);
$object->get([qw/id foo bar/], 'tablename', 10);
$object->get('tablename', 'key_field', 10);
$object->get([qw/id foo bar/], 'dbname.tablename', 'key_field', 10);

$object->get(
    fields    => [qw/id foo bar/],
...
    key_field => 'key_field',
    key_value => 10,
);

sub test1
{
...
test1('arg1', \@otherargs);
test1('arg1', 'arg2');
test1('arg1', 'arg2', [qw/foo bar/]);