lib/DBMerge.pm 

has source_dbh => (
    is      => 'ro',
    lazy    => 1,
    default => sub {
        my $self = shift;
        $self->_db_connect(
            $self->source_dsn,
            $self->source_db_user,
            $self->source_db_attr
        );
    },
);