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;
}