File Coverage

blib/lib/Mojolicious/Plugin/ConfigAny.pm

Criterion	Covered	Total	%
statement	29	36	80.5
branch	2	4	50.0
condition	4	11	36.3
subroutine	6	8	75.0
pod	1	1	100.0
total	42	60	70.0

package Mojolicious::Plugin::ConfigAny;
use Mojo::Base 'Mojolicious::Plugin';
use Config::Any;
use File::ConfigDir qw(config_dirs);
use IO::All;
our $VERSION = '0.1.2'; # VERSION
# ABSTRACT: Mojolicious Plugin for Config::Any support


sub register {
  my ($self, $app, $conf) = @_;
  # config_dirs
  my $identifier = $conf->{identifier} // $app->moniker;
  my $prefix = $conf->{prefix} // $app->moniker;
  my $mode = $conf->{mode} // $app->mode // 'production';
  my @config_dirs = config_dirs($identifier);
  # TODO: extensions might need checking.
  my @config_extentions = $conf->{extensions} ? @{$conf->{extensions}} : Config::Any->extensions();
  my $ext_pattern = join '|', @config_extentions;
  my $config_files_pattern = qr/^$prefix(\.$mode)?\.($ext_pattern)$/;
  my @config_files = map {
    my $dir = $_;
    map { $_->pathname } io->dir($dir)->filter(sub {
        $_->filename =~ $config_files_pattern;
      }
    )->All_Files();
  } @config_dirs;
  $app->helper(config_dirs => sub { @config_dirs });
  $app->helper(config_files => sub { @config_files });

  if (@config_files) {
    my $configs = Config::Any->load_files(
      {
        files   => \@config_files,
        use_ext => 1
      }
    );
    my %configs = map { %$_ } map { values %$_ } @$configs;
    $app->defaults(config => $app->config)->config(%configs)->config;
  }
}


1;

__END__