xt/global-destruct-jenga-helper.pl

   1 use strictures;
   2 use lib 'lib';
   3 {
   4   package BaseClass;
   5   use Moo;
   6 }
   7 {
   8   package Subclass;
   9   use Moose;
  10   extends 'BaseClass';
  11   __PACKAGE__->meta->make_immutable;
  12 }
  13 {
  14   package Blorp;
  15   use Moo;
  16   extends 'Subclass';
  17 }
  18 our $o = Blorp->new;