File Coverage

blib/lib/Mojolicious/Plugin/ConfigHashMerge.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	7	16	43.7
condition	4	17	23.5
subroutine	4	4	100.0
pod	1	1	100.0
total	39	62	62.9

package Mojolicious::Plugin::ConfigHashMerge;
use Mojo::Base 'Mojolicious::Plugin::Config';
use Hash::Merge::Simple qw( merge );
use File::Spec::Functions 'file_name_is_absolute';

our $VERSION = '0.02';

sub register {
  my ($self, $app, $conf) = @_;

  # Config file
  my $file = $conf->{file} || $ENV{MOJO_CONFIG};
  $file ||= $app->moniker . '.' . ($conf->{ext} || 'conf');

  # Mode specific config file
  my $mode = $file =~ /^(.*)\.([^.]+)$/ ? join('.', $1, $app->mode, $2) : '';

  my $home = $app->home;
  $file = $home->rel_file($file) unless file_name_is_absolute $file;
  $mode = $home->rel_file($mode) if $mode && !file_name_is_absolute $mode;
  $mode = undef unless $mode && -e $mode;

  # Read config file
  my $config = {};
  if (-e $file) { $config = $self->load($file, $conf, $app) }

  # Check for default and mode specific config file
  elsif (!$conf->{default} && !$mode) {
    die qq{Configuration file "$file" missing, maybe you need to create it?\n};
  }

  # Merge everything
  $config = merge($config, $self->load($mode, $conf, $app)) if $mode;
  $config = merge($conf->{default}, $config) if $conf->{default};
  return $app->defaults(config => $app->config)->config($config)->config;
}
1;
__END__