Start working on object literals.

Only two forms work ATM:
 - {"a": 1}
 - {a}

(obviously, the empty object, {}, parses as well)

lib/_007/Parser/Actions.pm

@@ -411,10 +411,22 @@ class _007::Parser::Actions {
         make Q::Quasi.new($<statements>.ast);
     }
 
+    method term:object ($/) {
+        make Q::Literal::Object.new($<pair>».ast);
+    }
+
     method unquote ($/) {
         make Q::Unquote.new($<EXPR>.ast);
     }
 
+    method pair:quoted ($/) {
+        make Q::Property.new($<key>.made, $<value>.made);
+    }
+
+    method pair:sym ($/) {
+      make Q::Property.new($<identifier>.made, $<identifier>.made);
+    }
+
     method infix($/) {
         make $*parser.oplevel.ops<infix>{~$/};
     }

lib/_007/Parser/Syntax.pm

@@ -179,9 +179,14 @@ grammar _007::Parser::Syntax {
         }
     }
     token term:quasi { quasi >> [<.ws> '{' ~ '}' <statements> || <.panic("quasi")>] }
+    token term:object { '{' ~ '}' <pair>* % [\h* ',' \h*] }
 
     token unquote { '{{{' <EXPR> '}}}' }
 
+    proto token pair {*}
+    rule pair:quoted { <key=term> ':' <value=term> }
+    token pair:sym { <identifier> }
+
     method infix {
         my @ops = $*parser.oplevel.ops<infix>.keys;
         if /@ops/(self) -> $cur {

lib/_007/Q.pm

@@ -97,6 +97,32 @@ role Q::Literal::Array does Q::Literal {
     }
 }
 
+role Q::Literal::Object does Q::Literal {
+  has @.elements;
+  method new(*@elements) {
+    self.bless(elements => @elements)
+  }
+  method Str { "Object" ~ children(@.elements) }
+
+  method eval($runtime) {
+    ... 'Val::Object NYI'
+  }
+}
+
+role Q::Property does Q::Literal {
+  has $.key;
+  has $.value;
+  method new($key, $value) {
+    self.bless(:$key, :$value);
+  }
+
+  method Str { "Property" }
+
+  method eval($runtime) {
+    ... 'Property NYI'
+  }
+}
+
 role Q::Block does Q {
     has $.parameters;
     has $.statements;

lib/_007/Test.pm

@@ -8,6 +8,8 @@ sub read(Str $ast) is export {
         int         => Q::Literal::Int,
         str         => Q::Literal::Str,
         array       => Q::Literal::Array,
+        object      => Q::Literal::Object,
+        property    => Q::Property,
 
         '-'         => Q::Prefix::Minus,