X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FMethod%2FAccessor.pm;h=1388373fa6019ae4c2ac5d4047e77ac7d5586730;hp=40e212218a29fc1bb04f5f48d8c3ff37a8be08a4;hb=e950b35555e8f7a09358c506b0f3cc57a03dc940;hpb=029463f45a8d39f3418b4e5c00243f9ad090fc2e diff --git a/lib/Mouse/Meta/Method/Accessor.pm b/lib/Mouse/Meta/Method/Accessor.pm index 40e2122..1388373 100755 --- a/lib/Mouse/Meta/Method/Accessor.pm +++ b/lib/Mouse/Meta/Method/Accessor.pm @@ -1,5 +1,7 @@ package Mouse::Meta::Method::Accessor; use Mouse::Util qw(:meta); # enables strict and warnings +use warnings FATAL => 'recursion'; + sub _inline_slot{ my(undef, $self_var, $attr_name) = @_;