No base.pm

diff --git a/lib/Mouse.pm b/lib/Mouse.pm
index c07b200..e3378a6 100644 (file)
--- a/lib/Mouse.pm
+++ b/lib/Mouse.pm
@@ -4,10 +4,10 @@ use 5.006_002;
 use strict;
 use warnings;
 
-use base 'Exporter';
-
 our $VERSION = '0.33_01';
 
+use Exporter;
+
 use Carp 'confess';
 use Scalar::Util 'blessed';
 
@@ -20,6 +20,8 @@ use Mouse::Meta::Attribute;
 use Mouse::Object;
 use Mouse::Util::TypeConstraints ();
 
+our @ISA = qw(Exporter);
+
 our @EXPORT = qw(
     extends with
     has

diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm
index 0534302..b973e42 100644 (file)
--- a/lib/Mouse/Meta/Class.pm
+++ b/lib/Mouse/Meta/Class.pm
@@ -9,8 +9,7 @@ use Mouse::Util qw/get_linear_isa not_supported/;
 use Mouse::Meta::Method::Constructor;
 use Mouse::Meta::Method::Destructor;
 use Mouse::Meta::Module;
-
-use base qw(Mouse::Meta::Module);
+our @ISA = qw(Mouse::Meta::Module);
 
 sub method_metaclass(){ 'Mouse::Meta::Method' } # required for get_method()
 

diff --git a/lib/Mouse/Meta/Role.pm b/lib/Mouse/Meta/Role.pm
index 8ca0759..03fb20b 100644 (file)
--- a/lib/Mouse/Meta/Role.pm
+++ b/lib/Mouse/Meta/Role.pm
@@ -4,8 +4,7 @@ use warnings;
 
 use Mouse::Util qw(not_supported english_list);
 use Mouse::Meta::Module;
-
-use base qw(Mouse::Meta::Module);
+our @ISA = qw(Mouse::Meta::Module);
 
 sub method_metaclass(){ 'Mouse::Meta::Role::Method' } # required for get_method()
 

diff --git a/lib/Mouse/Meta/Role/Method.pm b/lib/Mouse/Meta/Role/Method.pm
index 8702e7c..79b55d4 100755 (executable)
--- a/lib/Mouse/Meta/Role/Method.pm
+++ b/lib/Mouse/Meta/Role/Method.pm
@@ -2,7 +2,8 @@ package Mouse::Meta::Role::Method;
 use strict;
 use warnings;
 
-use base qw(Mouse::Meta::Method);
+use Mouse::Meta::Method;
+our @ISA = qw(Mouse::Meta::Method);
 
 1;
 

diff --git a/lib/Mouse/Role.pm b/lib/Mouse/Role.pm
index 0059eb6..3e86088 100644 (file)
--- a/lib/Mouse/Role.pm
+++ b/lib/Mouse/Role.pm
@@ -1,7 +1,8 @@
 package Mouse::Role;
 use strict;
 use warnings;
-use base 'Exporter';
+
+use Exporter;
 
 use Carp 'confess';
 use Scalar::Util 'blessed';
@@ -9,6 +10,8 @@ use Scalar::Util 'blessed';
 use Mouse::Util qw(load_class not_supported);
 use Mouse ();
 
+our @ISA = qw(Exporter);
+
 our @EXPORT = qw(
     extends with
     has

diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm
index fa06423..a348700 100644 (file)
--- a/lib/Mouse/Util.pm
+++ b/lib/Mouse/Util.pm
@@ -1,10 +1,12 @@
 package Mouse::Util;
 use strict;
 use warnings;
-use base qw/Exporter/;
+
+use Exporter;
 
 use Carp qw(confess);
 
+our @ISA       = qw(Exporter);
 our @EXPORT_OK = qw(
     find_meta
     does_role

diff --git a/lib/Mouse/Util/TypeConstraints.pm b/lib/Mouse/Util/TypeConstraints.pm
index dcad15c..54246b8 100644 (file)
--- a/lib/Mouse/Util/TypeConstraints.pm
+++ b/lib/Mouse/Util/TypeConstraints.pm
@@ -1,7 +1,8 @@
 package Mouse::Util::TypeConstraints;
 use strict;
 use warnings;
-use base 'Exporter';
+
+use Exporter;
 
 use Carp ();
 use Scalar::Util qw/blessed looks_like_number openhandle/;
@@ -10,6 +11,7 @@ use Mouse::Util qw(does_role not_supported);
 use Mouse::Meta::Module; # class_of
 use Mouse::Meta::TypeConstraint;
 
+our @ISA    = qw(Exporter);
 our @EXPORT = qw(
     as where message from via type subtype coerce class_type role_type enum
     find_type_constraint