File Coverage

blib/lib/WWW/AdServer/Database.pm

Criterion	Covered	Total	%
statement	3	10	30.0
branch	0	4	0.0
condition			n/a
subroutine	1	2	50.0
pod	0	1	0.0
total	4	17	23.5

package WWW::AdServer::Database;
{
  $WWW::AdServer::Database::VERSION = '1.01';
}
use Moo;

has dsn => (
    is       => 'ro',
    required => 1,
);

has type => (
    is       => 'rw',
);

has db => (
    is    => 'rw',
);


sub BUILD {
    my ($self) = @_;

    if (not $self->type) {
        if ($self->dsn =~ /\.yml$/) {
            $self->type('YAML');
            with 'WWW::AdServer::Database::YAML';
            $self->db( $self->load($self->dsn) );
            #$self->db( WWW::AdServer::Database::YAML->new );
            #$self->db->load($self->dsn);
        }
    }
    return;
}

1;

__END__