Select Code to Download

package My::Table;
use base 'My::Class::DBI';
...
    $sth->execute($quid);
    return @{$sth->fetchall_arrayref({})};
}

# fetch a My::Table object
my $record = My::Table->create({ foo => 1,
...

# fetch a list of records via our join method
my @list = My::Table->public_method_name('new quid val');