Class::MOP::load_class is deprecated in Moose 2.1100

diff --git a/Changes b/Changes
index 36a761a..00e2ae7 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,6 +2,7 @@ Revision history for Perl extension MooseX-Getopt
 
 {{$NEXT}}
  - spelling fixes (RT#87780, David Steinbrunner)
+ - removed use of deprecated Class::MOP::load_class
 
 0.56      2013-02-15 13:13:18 PST-0800
  - depend on newest Path::Tiny, to regain 5.8.x compatibility (gone since

diff --git a/t/105_uc_bug_more.t b/t/105_uc_bug_more.t
index df5c8d6..c6a0244 100644 (file)
--- a/t/105_uc_bug_more.t
+++ b/t/105_uc_bug_more.t
@@ -5,13 +5,14 @@ use Test::More tests => 13;
 use Test::Warnings;
 use Moose ();
 use Moose::Meta::Class;
+use Module::Runtime 'use_module';
 
 foreach my $role (qw/
     MooseX::Getopt
     MooseX::Getopt::GLD
     MooseX::Getopt::Basic
 /) {
-    Class::MOP::load_class($role);
+    use_module($role);
 
     my $meta = Moose::Meta::Class->create_anon_class(
         superclasses => ['Moose::Object'],

diff --git a/t/106_no_ignore_case.t b/t/106_no_ignore_case.t
index c53a581..37aa1dd 100644 (file)
--- a/t/106_no_ignore_case.t
+++ b/t/106_no_ignore_case.t
@@ -5,13 +5,14 @@ use Test::More tests => 22;
 use Test::Warnings;
 use Moose ();
 use Moose::Meta::Class;
+use Module::Runtime 'use_module';
 
 foreach my $role (qw/
     MooseX::Getopt
     MooseX::Getopt::GLD
     MooseX::Getopt::Basic
 /) {
-    Class::MOP::load_class($role);
+    use_module($role);
 
     my $meta = Moose::Meta::Class->create_anon_class(
         superclasses => ['Moose::Object'],