Hash::Merge 0.10

Hash::Merge Perl module merges arbitrarily deep hashes into a single hash.

SYNOPSIS

use Hash::Merge qw( merge );
my %a = (
foo => 1,
bar => [ qw( a b e ) ],
querty => { bob => alice },
);
my %b = (
foo => 2,
bar => [ qw(c d) ],
querty => { ted => margeret },
);

my %c = %{ merge( %a, %b ) };

Hash::Merge::set_behavior( RIGHT_PRECEDENT );

# This is the same as above

Hash::Merge::specify_behavior(
{
SCALAR => {
SCALAR => sub { $_[1] },
ARRAY => sub { [ $_[0], @{$_[1]} ] },
HASH => sub { $_[1] },
},
ARRAY => {
SCALAR => sub { $_[1] },
ARRAY => sub { [ @{$_[0]}, @{$_[1]} ] },
HASH => sub { $_[1] },
},
HASH => {
SCALAR => sub { $_[1] },
ARRAY => sub { [ values %{$_[0]}, @{$_[1]} ] },
HASH => sub { Hash::Merge::_merge_hashes( $_[0], $_[1] ) },
},
},
My Behavior,
);