my $subs = {a=>\&_a};

sub _a{
    my $attr = shift;
    my $obj = SOME::PACKAGE->new($attr);
}