diff options
author | Patrick Spek <p.spek@tyil.nl> | 2018-03-28 14:20:09 +0200 |
---|---|---|
committer | Patrick Spek <p.spek@tyil.nl> | 2018-03-28 14:20:09 +0200 |
commit | 3cf9f5e0c5180d21cce9ec3a2650d6200ac3c2b4 (patch) | |
tree | 7961bcb9a94df6bec8bc6d4dfa6181f6884e98c5 /lib/Hash/Merge/Unit.pm6 | |
parent | da9c10a20bbbf8904f3831511538eff67c27b695 (diff) |
Add Hash::Merge::Unit
Diffstat (limited to 'lib/Hash/Merge/Unit.pm6')
-rw-r--r-- | lib/Hash/Merge/Unit.pm6 | 60 |
1 files changed, 60 insertions, 0 deletions
diff --git a/lib/Hash/Merge/Unit.pm6 b/lib/Hash/Merge/Unit.pm6 new file mode 100644 index 0000000..5c1d016 --- /dev/null +++ b/lib/Hash/Merge/Unit.pm6 @@ -0,0 +1,60 @@ +#! /usr/bin/env false + +use v6; + +unit module Hash::Merge::Unit; + +#| Merge any number of Hashes together. +sub merge-hashes( + *@hashes, #= Hashes to merge together + --> Hash +) is export { + my %merge-into = @hashes.shift; + + # Nothing to do if we only got 1 argument + return %merge-into unless @hashes.elems; + + for ^@hashes.elems { + %merge-into = merge-hash(%merge-into, @hashes.shift); + } + + %merge-into; +} + +#| Merge two hashes together. +sub merge-hash( + %merge-into, #= The original Hash that should be merged into. + %merge-source, #= Another Hash to merge into the original Hash. + Bool:D :$no-append-array = False, + --> Hash +) is export { + for %merge-source.keys -> $key { + if %merge-into{$key}:exists { + given %merge-source{$key} { + when Hash { + merge-hash(%merge-into{$key}, %merge-source{$key}, :$no-append-array); + } + when Positional { + %merge-into{$key} = $no-append-array + ?? %merge-source{$key} + !! + do { + my @a; + @a.push: $_ for %merge-into{$key}.list; + @a.push: $_ for %merge-source{$key}.list; + @a; + } + } + default { + %merge-into{$key} = %merge-source{$key} + } + } + } else { + %merge-into{$key} = %merge-source{$key}; + } + } + + %merge-into; +} + +# vim: ft=perl6 ts=4 sw=4 et |