@@ -4,7 +4,7 @@ use 5.008000;
4
4
use strict;
5
5
use warnings;
6
6
7
- our $VERSION = ' 0.26 ' ;
7
+ our $VERSION = ' 0.28 ' ;
8
8
9
9
use File::Spec;
10
10
use YAML::XS qw( LoadFile ) ;
@@ -59,7 +59,28 @@ sub new {
59
59
? $params {process_directives } : 1;
60
60
$self -> {export_env } = $params {export_env };
61
61
62
- $self -> {_merger } = Hash::Merge-> new(' CONFIG_PRECEDENT' );
62
+ my $merger = Hash::Merge-> new;
63
+ $merger -> specify_behavior(
64
+ { SCALAR => {
65
+ SCALAR => sub { $_ [1] },
66
+ ARRAY => sub { $_ [1] },
67
+ HASH => sub { $_ [1] },
68
+ },
69
+ ARRAY => {
70
+ SCALAR => sub { $_ [1] },
71
+ ARRAY => sub { $_ [1] },
72
+ HASH => sub { $_ [1] },
73
+ },
74
+ HASH => {
75
+ SCALAR => sub { $_ [1] },
76
+ ARRAY => sub { $_ [1] },
77
+ HASH => sub { $merger -> _merge_hashes( $_ [0], $_ [1] ) },
78
+ },
79
+ },
80
+ ' CONFIG_PRECEDENT' ,
81
+ );
82
+ $self -> {_merger } = $merger ;
83
+
63
84
$self -> {_config } = undef ;
64
85
$self -> {_vars } = {};
65
86
$self -> {_seen_nodes } = {};
763
784
764
785
=head1 COPYRIGHT AND LICENSE
765
786
766
- Copyright (c) 2016-2017 , Eugene Ponizovsky, E<lt> [email protected] E<gt> .
787
+ Copyright (c) 2016-2018 , Eugene Ponizovsky, E<lt> [email protected] E<gt> .
767
788
All rights reserved.
768
789
769
790
This module is free software; you can redistribute it and/or modify it under
0 commit comments