diff options
author | Patrick Spek <p.spek@tyil.nl> | 2020-11-15 08:40:57 +0100 |
---|---|---|
committer | Patrick Spek <p.spek@tyil.nl> | 2020-11-15 08:40:57 +0100 |
commit | 54570330b51345438abd6f58bb3ff6f40818e504 (patch) | |
tree | bab82bb2b77f5b4fe9e6190fc141e9021570bee8 | |
parent | 5209a8c14dfc24d358dc288a230c679001d39d0b (diff) | |
download | hash-merge-54570330b51345438abd6f58bb3ff6f40818e504.tar.gz hash-merge-54570330b51345438abd6f58bb3ff6f40818e504.tar.bz2 |
Bring the other sub in line too
-rw-r--r-- | lib/Hash/Merge.pm6 | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lib/Hash/Merge.pm6 b/lib/Hash/Merge.pm6 index 7bc5bab..8f41c07 100644 --- a/lib/Hash/Merge.pm6 +++ b/lib/Hash/Merge.pm6 @@ -6,19 +6,21 @@ unit module Hash::Merge; #| Merge any number of Hashes together. sub merge-hashes ( - *@hashes, #= Hashes to merge together + #| Any number of Hashes to merge together. + *@hashes, + --> Hash ) is export { - my %merge-into = @hashes.shift; + my %result = @hashes.shift; # Nothing to do if we only got 1 argument - return %merge-into unless @hashes.elems; + return %result unless @hashes.elems; for ^@hashes.elems { - %merge-into = merge-hash(%merge-into, @hashes.shift); + %result = merge-hash(%result, @hashes.shift); } - %merge-into; + %result; } #| Merge two hashes together. |