From b27da2a93cc42afcf16ab539dc7aa1a84d12ee8c Mon Sep 17 00:00:00 2001 From: Patrick Spek Date: Sun, 15 Nov 2020 08:47:32 +0100 Subject: Rename Perl 6 to Raku --- lib/Hash/Merge/Augment.pm6 | 33 --------------------------------- lib/Hash/Merge/Augment.rakumod | 33 +++++++++++++++++++++++++++++++++ 2 files changed, 33 insertions(+), 33 deletions(-) delete mode 100644 lib/Hash/Merge/Augment.pm6 create mode 100644 lib/Hash/Merge/Augment.rakumod (limited to 'lib/Hash/Merge') diff --git a/lib/Hash/Merge/Augment.pm6 b/lib/Hash/Merge/Augment.pm6 deleted file mode 100644 index 7c03a9e..0000000 --- a/lib/Hash/Merge/Augment.pm6 +++ /dev/null @@ -1,33 +0,0 @@ -#! /usr/bin/env false - -use v6.c; -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=perl6 ts=4 sw=4 et 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 -- cgit v1.1