X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fglobal-destruct-jenga-helper.pl;fp=xt%2Fglobal-destruct-jenga-helper.pl;h=5ba4a24c9e9dab232e124aa189c61fac7f95a9ee;hb=c944f84cc09cd1f9e644e8a08e62c27412dbe892;hp=0000000000000000000000000000000000000000;hpb=bf0f29b2841e5ca262ee4c5bee457816257d7bc5;p=gitmo%2FMoo.git

diff --git a/xt/global-destruct-jenga-helper.pl b/xt/global-destruct-jenga-helper.pl
new file mode 100644
index 0000000..5ba4a24
--- /dev/null
+++ b/xt/global-destruct-jenga-helper.pl
@@ -0,0 +1,18 @@
+use strictures;
+use lib 'lib';
+{
+  package BaseClass;
+  use Moo;
+}
+{
+  package Subclass;
+  use Moose;
+  extends 'BaseClass';
+  __PACKAGE__->meta->make_immutable;
+}
+{
+  package Blorp;
+  use Moo;
+  extends 'Subclass';
+}
+our $o = Blorp->new;