package MooX::ConfigFromFile::Role::HashMergeLoaded;

use strict;
use warnings;

our $VERSION = '0.009';

use Hash::Merge;

use Moo::Role;

requires "loaded_config";
requires "sorted_loaded_config";

has "config_merge_behavior" => (is => "lazy");

sub _build_config_merge_behavior { 'LEFT_PRECEDENT' }

has "config_merger" => (is => "lazy");

sub _build_config_merger
    my ($class, $params) = @_;
    defined $params->{config_merge_behavior} or $params->{config_merge_behavior} = $class->_build_config_merge_behavior($params);

sub _build_merged_loaded_config
    my ($next, $class, $params) = @_;

    defined $params->{sorted_loaded_config} or $params->{sorted_loaded_config} = $class->_build_sorted_loaded_config($params);
    defined $params->{config_merger}        or $params->{config_merger}        = $class->_build_config_merger($params);

    my $config_merged = {};
    for my $c (map { values %$_ } @{$params->{sorted_loaded_config}})
        %$config_merged = %{$params->{config_merger}->merge($config_merged, $c)};


around _build_loaded_config => \&_build_merged_loaded_config;


=head1 NAME

MooX::ConfigFromFile::Role::HashMergeLoaded - allows better merge strategies for multiple config files


  package MyApp::Cmd::TPau;

  use DBI;
  use Moo;
  use MooX::Cmd with_configfromfile => 1;
  with "MooX::ConfigFromFile::Role::HashMergeLoaded";

  has csv => (is => "ro", required => 1);

  sub execute
      my $self = shift;
      DBI->connect("DBI::csv:", undef, undef, $self->csv);

  $ cat etc/myapp.json
    "csv": {
      "f_ext": ".csv/r",
      "csv_sep_char": ";",
      "csv_class": "Text::CSV_XS"
  $cat etc/myapp-tpau.json
    "csv": {
      "f_dir": "data/tpau"


This is an additional role for MooX::ConfigFromFile to allow better merging
of deep structures.


=head2 config_merge_behavior

This attribute contains the behavior which will L<config_merger|/config_merger>
use to merge particular loaded configurations.

=head2 config_merger

This attribute contains the instance of L<Hash::Merge> used to merge the
I<raw_loaded_config> into I<loaded_config>.

=head2 loaded_config

This role modifies the builder for I<loaded_config> by merging the items
from I<raw_loaded_config> in order of appearance. It is assumed that more
relevant config files are in front and are filled up with defaults in
following ones.

=head1 AUTHOR

Jens Rehsack, C<< <rehsack at> >>



Copyright 2015-2018 Jens Rehsack.

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See L<> for more information.