package SpaceCowboy::Database::Module;

use 5.010;
use strict;
use warnings;

use DBI;

sub new {
    my ($class, $params) = @_;

    return bless $params => $class;
}

{
    my $DBH;

    sub dbh {
        my ($self) = @_;
        $DBH //= $self->_connect();
    }
}

sub _connect {
    my ($self) = @_;
    # Use credentials in DBI->connect(...);
    #   e.g. $self->host(), $self->username(), etc.
    return DBI->connect(...);
}

sub primary {
    my ($self) = @_;
    $self->dbh()->do("alter session ...");
    return;
}

sub first {
    my ($self) = @_;
    $self->dbh()->do("create ...");
    $self->dbh()->do("insert ...");
    return;
}

# ditto for second() and third()

1;