Connecting to DBI in Kelp

kelp_dbi.pl

package MyApp;
use Kelp::Base 'Kelp';
use DBI;

# Lazy attribute with DBI handle
attr _dbh => sub {
    $_[0]->_dbi_connect;
};

# Private sub to connect
sub _dbi_connect {
    my $self = shift;
    my @config = @{ $self->config('dbi') };
    DBI->connect(@config);
}

# Public method to use when you need dbh
sub dbh {
    my $self = shift;
    if ( !$self->_dbh->ping ) {
        $self->_dbh( $self->_dbi_connect );
    }
    $self->_dbh;
}

# Use $self->dbh from here on ...

sub some_route {
    my $self = shift;
    $self->dbh->selectrow_array(q[
        SELECT * FROM users
        WHERE clue > 0
    ]);
}