t/non-moo-extends.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 {
   6     package ClassA;
   7     use Moo;
   8
   9     has 'foo' => ( is => 'ro');
  10 }
  11
  12 {
  13     package ClassB;
  14     our @ISA = 'ClassA';
  15 }
  16
  17 package main;
  18
  19 my $o = ClassB->new;
  20 isa_ok $o, 'ClassB';
  21
  22 done_testing;