Remove a "no strict 'refs'" statement
gfx [Sun, 19 Jul 2009 02:05:11 +0000 (11:05 +0900)]
lib/Class/MOP/Package.pm

index bfbf974..c0ebb07 100644 (file)
@@ -132,8 +132,7 @@ sub namespace {
 
 sub remove_package_glob {
     my ($self, $name) = @_;
-    no strict 'refs';        
-    delete ${$self->name . '::'}{$name};     
+    delete $self->namespace->{$name};
 }
 
 sub remove_package_symbol {