File Coverage

blib/lib/Footprintless/Plugin/Database.pm

Criterion	Covered	Total	%
statement	23	27	85.1
branch	7	12	58.3
condition			n/a
subroutine	7	9	77.7
pod	3	3	100.0
total	40	51	78.4

use strict;
use warnings;

package Footprintless::Plugin::Database;
$Footprintless::Plugin::Database::VERSION = '1.00';
# ABSTRACT: A Footprintless plugin for working with databases
# PODNAME: Footprintless::Plugin::Database

use Footprintless::Util qw(dynamic_module_new);

use parent qw(Footprintless::Plugin);

sub db {
    my ( $self, $footprintless, $coordinate, @rest ) = @_;
    die("database plugin config required") unless ( $self->{config} );

    my $entity = $footprintless->entities()->get_entity($coordinate);

    my $provider =
          $entity->{provider} ? $self->{config}{providers}{ $entity->{provider} }
        : $self->{config}{default_provider}
        ? $self->{config}{providers}{ $self->{config}{default_provider} }
        : undef;
    if ($provider) {
        return dynamic_module_new( $provider, $footprintless, $coordinate, @rest );
    }
    else {
        if ( $entity->{provider} ) {
            die("unsupported database provider: $entity->{provider}");
        }
        else {
            die("provider not specified and no default configured");
        }
    }
}

sub db_command_helper {
    my ( $self, $footprintless, $coordinate, @rest ) = @_;
    return $self->{config}{command_helper}
        ? dynamic_module_new( $self->{config}{command_helper} )
        : dynamic_module_new('Footprintless::Plugin::Database::DefaultCommandHelper');
}

sub factory_methods {
    my ($self) = @_;
    return {
        db => sub {
            return $self->db(@_);
        },
        db_command_helper => sub {
            return $self->db_command_helper(@_);
        }
    };
}

1;

__END__