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 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');
  30 isa_ok($bar, 'Foo');