Strictures and changelogging

[p5sagit/namespace-clean.git] / lib / namespace / clean.pm

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]->() }