Add .^composed meta method to classes

For easier debugging
rakudo · Jan 25, 2019 · b8a3f9f · b8a3f9f
1 parent d499bd4
commit b8a3f9f
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Perl6/Metamodel/ClassHOW.nqp b/src/Perl6/Metamodel/ClassHOW.nqp
@@ -29,6 +29,8 @@ class Perl6::Metamodel::ClassHOW
     has @!fallbacks;
     has $!composed;
 
+    method composed() { $!composed }
+
     my $archetypes := Perl6::Metamodel::Archetypes.new(
         :nominal(1), :inheritable(1), :augmentable(1) );
     method archetypes() {