t/060_compat/004_extends_nonmoose_that_isa_moose_with_metarole.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 1;
   4
   5 {
   6     package My::Role;
   7     use Moose::Role;
   8 }
   9
  10 {
  11     package SomeClass;
  12     use Moose -traits => 'My::Role';
  13 }
  14
  15 {
  16     package SubClassUseBase;
  17     use base qw/SomeClass/;
  18 }
  19
  20 {
  21     package SubSubClassUseBase;
  22     use Moose;
  23     use Test::More;
  24     use Test::Exception;
  25     lives_ok {
  26         extends 'SubClassUseBase';
  27     }
  28     'Can extend non-moose class with parent class that is a Moose class with a meta role';
  29 }