package your_package;

sub AUTOLOAD {
    no strict qw(refs);

    our $AUTOLOAD;
    $AUTOLOAD =~ m{ (.*) :: (.*?) $ }x;
    my $dispatch_name = "$1::_do_$2";
    if (defined &{$dispatch_name}) {
        *$AUTOLOAD = sub {
            my $dbh = &_get_dbh;
            my $rc = &$dispatch_name(@_);
            $dbh->disconnect();
            return $rc;
        };
        goto &$AUTOLOAD;
    }
    else {
        croak("Unable to autogenerate method for '$AUTOLOAD': no such function '$dispatch_name'");
    }
}