Adding .^attribute for hash based introspection

gistfile1.txt

diff --git a/src/Perl6/Metamodel/AttributeContainer.nqp b/src/Perl6/Metamodel/AttributeContainer.nqp
index a5fafdd..bc0a525 100644
--- a/src/Perl6/Metamodel/AttributeContainer.nqp
+++ b/src/Perl6/Metamodel/AttributeContainer.nqp
@@ -76,4 +76,22 @@ role Perl6::Metamodel::AttributeContainer {
 
         @attrs
     }
+
+    method attribute($obj, :$local, :$excl, :$all) {
+        my %attrs;
+
+        for @!attributes {
+            %attrs{$_.name} := $_;
+        }
+
+        unless $local {
+            for self.parents($obj, :excl($excl), :all($all)) {
+                for $_.HOW.attributes($_, :local(1)) {
+                    %attrs{$_.name} := $_;
+                }
+            }
+        }
+
+        %attrs
+    }
 }