File Coverage

blib/lib/Geoffrey/Role/Core.pm

Criterion	Covered	Total	%
statement	38	39	97.4
branch	7	10	70.0
condition	11	15	73.3
subroutine	12	13	92.3
pod	9	9	100.0
total	77	86	89.5

package Geoffrey::Role::Core;

use utf8;
use 5.016;
use strict;
use warnings;

$Geoffrey::Role::Core::VERSION = '0.000203';

sub new {
    my $class = shift;
    my $self  = {@_};

    # make dbh required
    if (!$self->{dbh}) {
        require Geoffrey::Exception::Database;
        Geoffrey::Exception::Database::throw_no_dbh();
    }

    # be sure thet dbh is realy a DBI::db object or a test DBI
    if (!$self->{dbh}->isa('DBI::db') && !$self->{dbh}->isa('Test::Mock::Geoffrey::DBI')) {
        require Geoffrey::Exception::Database;
        Geoffrey::Exception::Database::throw_not_dbh();
    }
    return bless $self, $class;
}

sub converter_name {
    $_[0]->{converter_name} //= 'SQLite';
    return $_[0]->{converter_name};
}

sub io_name {
    $_[0]->{io_name} //= 'None';
    return $_[0]->{io_name};
}
sub dbh                { return $_[0]->{dbh} }
sub schema             { return $_[0]->{schema} }
sub environment_system { return $_[0]->{system} // 'main'; }
sub disconnect         { return $_[0]->{dbh}->disconnect; }

sub converter {
    my ($self) = @_;
    require Geoffrey::Utils;
    $self->{converter} //= Geoffrey::Utils::converter_obj_from_name($self->converter_name);
    return $self->{converter};
}

sub changelog_io {
    my ($self) = @_;
    require Geoffrey::Utils;
    $self->{changelog_io} //= Geoffrey::Utils::changelog_io_from_name($self->io_name);
    $self->{changelog_io}->converter($self->converter) if $self->{changelog_io}->needs_converter;
    $self->{changelog_io}->dbh($self->dbh)             if $self->{changelog_io}->needs_dbh;
    $self->{changelog_io}->schema($self->schema)       if $self->schema;
    return $self->{changelog_io};
}

1;    # End of Geoffrey::Role::Core

__END__