Remove soon-to-be-deprecated use of Class::MOP::load_class
Karen Etheridge [Thu, 5 Sep 2013 17:57:45 +0000 (10:57 -0700)]
Changes
Makefile.PL
lib/Devel/REPL/Script.pm

diff --git a/Changes b/Changes
index 2e90f55..14dd427 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 Revision history for Devel-REPL
 
+  - removed use of deprecated functions from Class::MOP
+
 1.003020   2013-07-08
   - shebang fixed in re.pl so it is rewritten to point to the proper perl at
     install time (RT#70928)
index 05ebea3..e3f142f 100644 (file)
@@ -28,6 +28,7 @@ requires 'Task::Weaken';
 requires 'B::Concise';
 requires 'Term::ANSIColor';
 requires 'Devel::Peek';
+requires 'Module::Runtime';
 
 recommends 'PPI::XS' => '0.902';
 
index c748b95..3e4dd4b 100644 (file)
@@ -4,6 +4,7 @@ use Moose;
 use Devel::REPL;
 use File::HomeDir;
 use File::Spec;
+use Module::Runtime 'use_module';
 use vars qw($CURRENT_SCRIPT);
 use namespace::autoclean;
 
@@ -34,7 +35,7 @@ sub BUILD {
 sub load_profile {
   my ($self, $profile) = @_;
   $profile = "Devel::REPL::Profile::${profile}" unless $profile =~ /::/;
-  Class::MOP::load_class($profile);
+  use_module $profile;
   confess "Profile class ${profile} doesn't do 'Devel::REPL::Profile'"
     unless $profile->does('Devel::REPL::Profile');
   $profile->new->apply_profile($self->_repl);