warn if attributes are redefined

mojolicious · Aug 10, 2012 · fabc833 · fabc833
1 parent cf2c6d8
commit fabc833
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/lib/Mojo/Base.pm b/lib/Mojo/Base.pm
@@ -20,7 +20,6 @@ sub import {
 
   # No limits!
   no strict 'refs';
-  no warnings 'redefine';
 
   # Base
   if ($flag eq '-base') { $flag = $class }
@@ -96,9 +95,8 @@ sub attr {
 
     # We compile custom attribute code for speed
     no strict 'refs';
-    no warnings 'redefine';
-    Carp::croak("Mojo::Base error: $@") unless eval "$code;1";
     warn "-- Attribute $attr in $class\n$code\n\n" if $ENV{MOJO_BASE_DEBUG};
+    Carp::croak("Mojo::Base error: $@") unless eval "$code;1";
   }
 }