diff options
author | Patrick Spek <p.spek@tyil.nl> | 2020-11-15 08:47:32 +0100 |
---|---|---|
committer | Patrick Spek <p.spek@tyil.nl> | 2020-11-15 08:47:32 +0100 |
commit | b27da2a93cc42afcf16ab539dc7aa1a84d12ee8c (patch) | |
tree | 53507a0a534140338bdc0520bc5b05b255bf38f8 /lib/Hash/Merge/Augment.rakumod | |
parent | 35e9b52620d540f79baac2c93caa19f4b8258679 (diff) |
Rename Perl 6 to Raku
Diffstat (limited to 'lib/Hash/Merge/Augment.rakumod')
-rw-r--r-- | lib/Hash/Merge/Augment.rakumod | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/lib/Hash/Merge/Augment.rakumod b/lib/Hash/Merge/Augment.rakumod new file mode 100644 index 0000000..e719dc1 --- /dev/null +++ b/lib/Hash/Merge/Augment.rakumod @@ -0,0 +1,33 @@ +#! /usr/bin/env false + +use v6.d; +use MONKEY-TYPING; + +use Hash::Merge; + +# Don't use precompilation in order to not conflict with other MONKEY-TYPING +# modules. +no precompilation; + +augment class Hash { + method merge ( + Hash:D: + + #| The Hash to merge into this one. + %hash, + + #| Boolean to set whether Associative objects should be merged on their + #| own. When set to False, Associative objects in %second will + #| overwrite those from %first. + Bool:D :$deep = True, + + #| Boolean to set whether Positional objects should be appended. When + #| set to False, Positional objects in %second will overwrite those + #| from %first. + Bool:D :$positional-append = True, + ) { + self = merge-hash(self, %hash, :$deep, :$positional-append); + } +} + +# vim: ft=raku ts=4 sw=4 et |