[gitmo/Mouse.git] / t / 001_mouse / 004-auto-subclass.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 3;

do {
    package Class;
    use Mouse;
};

can_ok(Class => 'new');

my $object = Class->new;

isa_ok($object => 'Class');
isa_ok($object => 'Mouse::Object');
Commit	Line	Data
c3398f5b	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More tests => 3;
	5
	6	do {
	7	package Class;
	8	use Mouse;
	9	};
	10
	11	can_ok(Class => 'new');
	12
	13	my $object = Class->new;
	14
	15	isa_ok($object => 'Class');
	16	isa_ok($object => 'Mouse::Object');
	17