X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_mouse%2F063-meta-of-metaclasses.t;h=65821952f2ff9089f435528065574ebba0bc3672;hb=e128626c409797822ffd8a4079f833eb3dc0fd37;hp=8ef6294781b95b50ddb129938931d60473baa586;hpb=3821b191b0493223e0f67b05ad351e3753fcfc66;p=gitmo%2FMouse.git diff --git a/t/001_mouse/063-meta-of-metaclasses.t b/t/001_mouse/063-meta-of-metaclasses.t index 8ef6294..6582195 100644 --- a/t/001_mouse/063-meta-of-metaclasses.t +++ b/t/001_mouse/063-meta-of-metaclasses.t @@ -5,10 +5,19 @@ use warnings; use Test::More tests => 10; { + package OtherClass; + sub method {} + package Class; use Mouse; - has foo => (is => 'rw'); + # this attribute definition is intended to load submodules + + has foo => ( + is => 'rw', + isa => 'OtherClass', + handles => qr/./, + ); __PACKAGE__->meta->make_immutable; # ensure metaclasses loaded