File Coverage

blib/lib/Dancer2/Core/Role/ConfigReader.pm

Criterion	Covered	Total	%
statement	27	31	87.1
branch			n/a
condition			n/a
subroutine	9	11	81.8
pod			n/a
total	36	42	85.7

# ABSTRACT: Config reader role for Dancer2 core objects
package Dancer2::Core::Role::ConfigReader;
$Dancer2::Core::Role::ConfigReader::VERSION = '2.1.0';
use Moo::Role;

use Carp 'croak';
use Path::Tiny ();
use Config::Any;
use Hash::Merge::Simple;
use Module::Runtime 'require_module';

use Dancer2::Core::Factory;
use Dancer2::Core;
use Dancer2::Core::Types;

has config_location => (
    is      => 'ro',
    isa     => ReadableFilePath,
    lazy    => 1,
    default => sub { $ENV{DANCER_CONFDIR} || $_[0]->location },
);

# The type for this attribute is Str because we don't require
# an existing directory with configuration files for the
# environments.  An application without environments is still
# valid and works.
has environments_location => (
    is      => 'ro',
    isa     => Str,
    lazy    => 1,
    default => sub {
        # short circuit
        defined $ENV{'DANCER_ENVDIR'}
            and return $ENV{'DANCER_ENVDIR'};

        my $self = shift;

        my $last;
        foreach my $maybe_path ( $self->config_location, $self->location ) {
            my $path = Path::Tiny::path($maybe_path, 'environments');
            $last = $path;
            $path->exists && $path->is_dir
                and return $path->stringify;
        }

        # This is to assure any call on path($environments_location) won't crash
        # But the calling code will eventually realize the path doesn't exist
        return $last->stringify;
    },
);

has _config_location_path => (
    is       => 'ro',
    lazy     => 1,
    builder  => '_build_config_location_path',
    init_arg => undef,
);

has _environments_location_path => (
    is       => 'ro',
    lazy     => 1,
    builder  => '_build_environments_location_path',
    init_arg => undef,
);

sub _build_config_location_path {
    my $self = shift;
    return Path::Tiny::path( $self->config_location );
}

sub _build_environments_location_path {
    my $self = shift;
    return Path::Tiny::path( $self->environments_location );
}

# It is required to get environment from the caller.
# Environment should be passed down from Dancer2::Core::App.
has environment => (
    is       => 'ro',
    isa      => Str,
    required => 1,
);

# It is required to get location from the caller.
has location => (
    is       => 'ro',
    isa      => ReadableFilePath,
    required => 1,
);

1;

__END__