[gitmo/Mouse.git] / t / 100_bugs / 004_subclass_use_base_bug.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;


=pod

This just makes sure that the Bar gets
a metaclass initialized for it correctly.

=cut

{
    package Foo;
    use Mouse;

    package Bar;
    use strict;
    use warnings;

    use base 'Foo';
}

my $bar = Bar->new;
isa_ok($bar, 'Bar');
isa_ok($bar, 'Foo');
Commit	Line	Data
4c98ebb0	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 2;
	7
	8
	9
	10	=pod
	11
	12	This just makes sure that the Bar gets
	13	a metaclass initialized for it correctly.
	14
	15	=cut
	16
	17	{
	18	package Foo;
	19	use Mouse;
	20
	21	package Bar;
	22	use strict;
	23	use warnings;
	24
	25	use base 'Foo';
	26	}
	27
	28	my $bar = Bar->new;
	29	isa_ok($bar, 'Bar');
53f38c53	30	isa_ok($bar, 'Foo');