diff options
author | Patrick Spek <p.spek@tyil.nl> | 2018-03-28 14:34:24 +0200 |
---|---|---|
committer | Patrick Spek <p.spek@tyil.nl> | 2018-03-28 14:34:33 +0200 |
commit | 09a8131c63667d9de9ee3921e7f877c09c9092c8 (patch) | |
tree | ba6b4107c59fa10678d2e1057f2672c494fa78ac /lib/Hash/Merge/Unit.pm6 | |
parent | 3cf9f5e0c5180d21cce9ec3a2650d6200ac3c2b4 (diff) |
Move Hash::Merge -> Hash::Merge::Augment, new Hash::Merge from Hash::Merge::F
Original Hash::Merge is incredibly slow due to the MONKEY. This is
someone that is very unlikely to be what people want. App::Assixt
reports parse time to go from 13s to 7s on first run, 13s to 0.3s on
subsequent runs, which is *massive*.
Diffstat (limited to 'lib/Hash/Merge/Unit.pm6')
-rw-r--r-- | lib/Hash/Merge/Unit.pm6 | 60 |
1 files changed, 0 insertions, 60 deletions
diff --git a/lib/Hash/Merge/Unit.pm6 b/lib/Hash/Merge/Unit.pm6 deleted file mode 100644 index 5c1d016..0000000 --- a/lib/Hash/Merge/Unit.pm6 +++ /dev/null @@ -1,60 +0,0 @@ -#! /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 |