X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F050_metaclasses%2F010_extending_and_embedding_back_compat.t;h=6ec3a5a28810c60645fb9b183a6f574806c2e0c8;hb=113d3174264db82cb788bc846f617584072cba39;hp=9771a7362efe4aeeb9247ba79d4a13680f5fdac5;hpb=4403da902109164d2674c1169055c369500080ec;p=gitmo%2FMoose.git diff --git a/t/050_metaclasses/010_extending_and_embedding_back_compat.t b/t/050_metaclasses/010_extending_and_embedding_back_compat.t index 9771a73..6ec3a5a 100644 --- a/t/050_metaclasses/010_extending_and_embedding_back_compat.t +++ b/t/050_metaclasses/010_extending_and_embedding_back_compat.t @@ -11,12 +11,12 @@ use Test::Exception; BEGIN { package MyFramework::Base; use Moose; - + package MyFramework::Meta::Base; - use Moose; - - extends 'Moose::Meta::Class'; - + use Moose; + + extends 'Moose::Meta::Class'; + package MyFramework; use Moose; @@ -25,7 +25,7 @@ BEGIN { strict->import; warnings->import; - + return if $CALLER eq 'main'; Moose::init_meta( $CALLER, 'MyFramework::Base', 'MyFramework::Meta::Base' ); Moose->import({ into => $CALLER }); @@ -34,10 +34,10 @@ BEGIN { } } -{ +{ package MyClass; BEGIN { MyFramework->import } - + has 'foo' => (is => 'rw'); }