Strictures and changelogging

diff --git a/Changes b/Changes
index 6d79367..1490679 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,7 @@
+        - When using the tie() fallback ensure we do not obliterate a
+          foreign tie()
+        - Better document how to disable the tie() fallback
+
     [0.20_01] (the "mst made me do it" release)
         - Only invoke the deleted sub stashing if we run udner a debugger
           (avoid runtime penalty of Sub::Name/Sub::Identify)

diff --git a/lib/namespace/clean.pm b/lib/namespace/clean.pm
index ab08964..95a9ce1 100644 (file)
--- a/lib/namespace/clean.pm
+++ b/lib/namespace/clean.pm
@@ -13,6 +13,9 @@ $STORAGE_VAR = '__NAMESPACE_CLEAN_STORAGE';
 
 BEGIN {
 
+  use warnings;
+  use strict;
+
   # when changing also change in Makefile.PL
   my $b_h_eos_req = '0.07';
 
@@ -31,12 +34,18 @@ BEGIN {
   {
     package namespace::clean::_TieHintHash;
 
+    use warnings;
+    use strict;
+
     use base 'Tie::ExtraHash';
   }
 
   {
     package namespace::clean::_ScopeGuard;
 
+    use warnings;
+    use strict;
+
     sub arm { bless [ $_[1] ] }
 
     sub DESTROY { $_[0]->[0]->() }