Added a "no warnings 'redefine'" to method() and methods() in

Badger::Class.
abw · May 17, 2016 · c312cd9 · c312cd9
1 parent cfb219c
commit c312cd9
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/Badger/Class.pm b/lib/Badger/Class.pm
@@ -663,6 +663,7 @@ sub method {
     my $self = shift;
     my $name = shift;
     no strict REFS;
+    no warnings 'redefines';
 
     # method($name) can be used to fetch a method/sub
     return $self->{ name }->can($name)
@@ -684,6 +685,7 @@ sub methods {
     my $args = @_ && ref $_[0] eq HASH ? shift : { @_ };
     my $pkg  = $self->{ name };
     no strict REFS;
+    no warnings 'redefines';
 
     while (my ($name, $code) = each %$args) {
         _debug("defining method: $self\::$name => $code\n") if DEBUG;