13 can_ok(Class => 'new');
15 my $object = Class->new;
17 isa_ok($object => 'Class');
18 isa_ok($object => 'Mouse::Object');
27 extends 'ParentClass';
29 package Mouse::TestClass;
31 extends 'Unsweetened'; # in t/lib
36 can_ok(Child => 'new');
38 my $child = Child->new;
40 isa_ok($child => 'Child');
41 isa_ok($child => 'ParentClass');
42 isa_ok($child => 'Mouse::Object');
44 can_ok('Mouse::TestClass' => qw(mouse unsweetened));
51 isa_ok($child => 'ParentClass');
52 isa_ok($child => 'Mouse::Object');