sub frobnicate {
    my( $self, %options )= @_;
    $options{ dbh } ||= $self->get_dbh;
    ...
};

sub get_dbh {
    my( $self )= @_;
    $self->{ dbh } ||= do {
        DBI->connect( $self->{dbi_parameters} );
    };
};