Howdy!

May I recommend the 'construct' method?

Turn

sub my_beta_from_alpha
{
    my ($class, %args) = @_;
    my $sth = $class->sql_by_alpha(@args{qw(bloop glank)});
    $sth->execute;
    my $result = $sth->fetchrow_arrayref;
    return @$result;
}
[download]

into

sub my_beta_from_alpha
{
    my ($class, %args) = @_;
    my $sth = $class->sql_by_alpha(@args{qw(bloop glank)});
    $sth->execute;
    my $result = $class->construct($sth->fetchrow_hashref);
    return $result;
}
[download]