From b8a3f9f80b640ae32bce9f04e52691ddb4f53099 Mon Sep 17 00:00:00 2001
From: Elizabeth Mattijsen <liz@wenzperl.nl>
Date: Fri, 25 Jan 2019 18:00:26 +0100
Subject: [PATCH] Add .^composed meta method to classes

For easier debugging
---
 src/Perl6/Metamodel/ClassHOW.nqp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Perl6/Metamodel/ClassHOW.nqp b/src/Perl6/Metamodel/ClassHOW.nqp
index e6e80f33f95..518ec81c5fc 100644
--- 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() {