Use low level escapes lookup

rakudo · Jan 13, 2016 · 5410113 · 5410113
1 parent 1d413e4
commit 5410113
Showing 1 changed file with 11 additions and 9 deletions.
diff --git a/src/core/JSON/Pretty.pm b/src/core/JSON/Pretty.pm
@@ -37,16 +37,18 @@ my class JSONPrettyActions {
 
     method str($/)               { make ~$/ }
 
-    my %esc = '\\' => "\\",
-              '/'  => "/",
-              'b'  => "\b",
-              'n'  => "\x0A",
-              't'  => "\t",
-              'f'  => "\f",
-              'r'  => "\r",
-              '"'  => "\"";
+    my $escapes := nqp::hash(
+      '\\' , "\\",
+      '/'  , "/",
+      'b'  , "\b",
+      'n'  , "\x0A",
+      't'  , "\t",
+      'f'  , "\f",
+      'r'  , "\r",
+      '"'  , "\"",
+    );
     method str_escape($/) {
-        make $<xdigit> ?? chr(:16($<xdigit>.join)) !! %esc.AT-KEY(~$/);
+        make $<xdigit> ?? chr(:16($<xdigit>.join)) !! nqp::atkey($escapes,~$/)
     }
 }