Slightly faster Str.encode

rakudo · Oct 30, 2015 · 2e19ebe · 2e19ebe
1 parent 4e45f0e
commit 2e19ebe
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -1126,11 +1126,12 @@ my class Str does Stringy { # declared in BOOTSTRAP
         }.new(self));
     }
 
-    my %enc_type = utf8 => utf8, utf16 => utf16, utf32 => utf32;
+    my $enc_type := nqp::hash('utf8',utf8,'utf16',utf16,'utf32',utf32);
     method encode(Str:D $encoding = 'utf8') {
-        my $enc      := Rakudo::Internals.NORMALIZE_ENCODING($encoding);
-        my $enc_type := %enc_type.EXISTS-KEY($enc) ?? %enc_type{$enc} !! blob8;
-        nqp::encode(nqp::unbox_s(self), nqp::unbox_s($enc), nqp::decont($enc_type.new))
+        my str $enc = Rakudo::Internals.NORMALIZE_ENCODING($encoding);
+        my $type   :=
+          nqp::existskey($enc_type,$enc) ?? nqp::atkey($enc_type,$enc) !! blob8;
+        nqp::encode(nqp::unbox_s(self), $enc, nqp::decont($type.new))
     }
 
 #?if moar