remove use of 'use base'

diff --git a/Changes b/Changes
index 7c785a8..8ecc5a3 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 Revision history for Web-Simple
 
+  - remove use of 'use base'
+
 0.027 - 2014-07-11
   - stable release of 0.026_001
 

diff --git a/lib/Web/Dispatch/HTTPMethods.pm b/lib/Web/Dispatch/HTTPMethods.pm
index c78c650..5a73e5e 100644 (file)
--- a/lib/Web/Dispatch/HTTPMethods.pm
+++ b/lib/Web/Dispatch/HTTPMethods.pm
@@ -3,7 +3,7 @@ package Web::Dispatch::HTTPMethods;
 use strictures 1;
 use Web::Dispatch::Predicates qw(match_method);
 use Scalar::Util qw(blessed);
-use base qw(Exporter);
+use Exporter 'import';
 
 our @EXPORT = qw(GET HEAD POST PUT DELETE OPTIONS);
 

diff --git a/lib/Web/Dispatch/Predicates.pm b/lib/Web/Dispatch/Predicates.pm
index ab44055..3913a0b 100644 (file)
--- a/lib/Web/Dispatch/Predicates.pm
+++ b/lib/Web/Dispatch/Predicates.pm
@@ -1,7 +1,7 @@
 package Web::Dispatch::Predicates;
 
 use strictures 1;
-use base qw(Exporter);
+use Exporter 'import';
 
 our @EXPORT = qw(
   match_and match_or match_not match_method match_path match_path_strip

diff --git a/lib/Web/Dispatch/Upload.pm b/lib/Web/Dispatch/Upload.pm
index 8e5fdc6..fa01aa5 100644 (file)
--- a/lib/Web/Dispatch/Upload.pm
+++ b/lib/Web/Dispatch/Upload.pm
@@ -2,7 +2,8 @@ use strictures 1;
 
 {
   package Web::Dispatch::Upload;
-  use base qw(Plack::Request::Upload);
+  require Plack::Request::Upload;
+  our @ISA = qw(Plack::Request::Upload);
   use overload '""' => 'tempname', fallback => 1;
 
   sub is_upload { 1 }