X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F100_bugs%2F004_subclass_use_base_bug.t;h=4684ab3d57b8c9a5610b44ba0ba043154d19bcda;hb=d03bd989b97597428b460d7f9a021e2931893fa0;hp=689cc21fa590cbbb5faed1e6fb56c6f1a95660d4;hpb=f6bee6fe1d579dc3d2ed2952cce9a1556040c8e5;p=gitmo%2FMoose.git diff --git a/t/100_bugs/004_subclass_use_base_bug.t b/t/100_bugs/004_subclass_use_base_bug.t index 689cc21..4684ab3 100644 --- a/t/100_bugs/004_subclass_use_base_bug.t +++ b/t/100_bugs/004_subclass_use_base_bug.t @@ -9,20 +9,20 @@ use Test::More tests => 2; =pod -This just makes sure that the Bar gets +This just makes sure that the Bar gets a metaclass initialized for it correctly. =cut { - package Foo; - use Moose; + package Foo; + use Moose; - package Bar; + package Bar; use strict; use warnings; - - use base 'Foo'; + + use base 'Foo'; } my $bar = Bar->new;