t/050_metaclasses/041_moose_nonmoose_chain_init_meta.t

   1 use strict;
   2 use warnings;
   3 {
   4     package ParentClass;
   5     use Mouse;
   6 }
   7 {
   8     package SomeClass;
   9     use base 'ParentClass';
  10 }
  11 {
  12     package SubClassUseBase;
  13     use base qw/SomeClass/;
  14     use Mouse;
  15 }
  16
  17 use Test::More tests => 1;
  18 use Test::Exception;
  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';