t/100_bugs/004_subclass_use_base_bug.t

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