Small string escape optimization

rakudo · Jul 15, 2015 · 52458b5 · 52458b5
1 parent 22f7192
commit 52458b5
Showing 1 changed file with 9 additions and 13 deletions.
diff --git a/src/core/JSON/Pretty.pm b/src/core/JSON/Pretty.pm
@@ -37,20 +37,16 @@ my class JSONPrettyActions {
 
     method str($/)               { make ~$/ }
 
+    my %esc = '\\' => "\\",
+              '/'  => "/",
+              'b'  => "\b",
+              'n'  => "\n",
+              't'  => "\t",
+              'f'  => "\f",
+              'r'  => "\r",
+              '"'  => "\"";
     method str_escape($/) {
-        if $<xdigit> {
-            make chr(:16($<xdigit>.join));
-        } else {
-            my %h = '\\' => "\\",
-                    '/'  => "/",
-                    'b'  => "\b",
-                    'n'  => "\n",
-                    't'  => "\t",
-                    'f'  => "\f",
-                    'r'  => "\r",
-                    '"'  => "\"";
-            make %h{~$/};
-        }
+        make $<xdigit> ?? chr(:16($<xdigit>.join)) !! %esc.AT-KEY(~$/);
     }
 }