[gitmo/Moo.git] / t / non-moo-extends.t

use strict;
use warnings;
use Test::More;

{
    package ClassA;
    use Moo;

    has 'foo' => ( is => 'ro');
}

{
    package ClassB;
    our @ISA = 'ClassA';
}

package main;

my $o = ClassB->new;
isa_ok $o, 'ClassB';

done_testing;
Commit	Line	Data
37c28fb3	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;