Unpacking of hashes works, and objects nearly works, once I fix attri…

…bute introspection.

src/builtins/Capture.pir

@@ -54,6 +54,18 @@ them.
 .end
 
 
+=item postcircumfix:<{ }>
+
+=cut
+
+.sub 'postcircumfix:<{ }>' :method :vtable('get_pmc_keyed_str')
+    .param pmc key
+    $P0 = getattribute self, '$!named'
+    $P0 = $P0[key]
+    .return ($P0)
+.end
+
+
 =item elems
 
 The number of positional elements in the Capture.

src/core/EnumMap.pm

@@ -55,4 +55,13 @@ role EnumMap does Associative {
     method Int() {
         pir::box__PI(pir::set__IP($!storage))
     }
+
+    method Capture() {
+        Q:PIR {
+            $P0 = get_hll_global 'Capture'
+            $P1 = find_lex 'self'
+            $P1 = getattribute $P1, '$!storage'
+            %r = $P0.'new'($P1 :flat :named)
+        }
+    }
 }

src/core/Mu.pm

@@ -2,4 +2,18 @@ augment class Mu {
     method Bool { $.defined }
 
     multi method notdef() { !self.defined; }
+
+    method Capture() {
+        my %attrs;
+        my @mro = self, self.^parents;
+        for @mro -> $class {
+            for $class.^attributes() -> $attr {
+                if $attr.accessor {
+                    my $name = substr($attr.name, 2);
+                    %attrs{$name} //= self."$name"();
+                }
+            }
+        }
+        %attrs.Capture()
+    }
 }