&select_hash ¿?

[maurimono]

Hola, ayudame a entender este codigo:
mi principal problema es saber que hace la linea "&select_hash", "bless"

primera llamada

Código:

my $doc = SBMP::Doc->new($rowss->{id});

#SBMP::Doc esta en perl/lib/sbmp/
#el archivo se llama doc.pm

Código:

# la funcion new:
my $where = "where id = 1"
my $sth = &select_hash("Select * from tabla $where");
#nuevamente una llamada a otra funcion:
my $self = $class->SBMP::Atri::new($version,1, $sth);

if ($self){
        bless($self, $class);
        return $self;
    }
    else{
        return undef;
    }

SBMP::Doc esta en perl/lib/sbmp/Atri.pm

Código:

sub new
{
    my $class = shift;
    my ( $dueno, $ind_proc_doc, $self) = @_;

    $self->{dueno}=$dueno;
    $self->{ind_proc_doc}= $ind_proc_doc;
    

    bless $self, $class;
    return ($self);
}

para mi esto no tiene pies ni cabeza. Gracias por la ayuda.
Mauricio