trAvis - MANAGER
Edit File: subclass_use_base_bug.t
#!/usr/bin/perl use strict; use warnings; use Test::More; =pod This just makes sure that the Bar gets a metaclass initialized for it correctly. =cut { package Foo; use Moose; package Bar; use strict; use warnings; use base 'Foo'; } my $bar = Bar->new; isa_ok($bar, 'Bar'); isa_ok($bar, 'Foo'); done_testing;