t/050_metaclasses/041_moose_nonmoose_chain_init_meta.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 1;
   4 use Test::Exception;
   5
   6 {
   7     package ParentClass;
   8     use Mouse;
   9 }
  10 {
  11     package SomeClass;
  12     use base 'ParentClass';
  13 }
  14 {
  15     package SubClassUseBase;
  16     use base qw/SomeClass/;
  17     use Mouse;
  18 }
  19
  20 lives_ok {
  21     Mouse->init_meta(for_class => 'SomeClass');
  22 } 'Mouse class => use base => Mouse Class, then Mouse->init_meta on middle class ok';