From 5f59ef09aa868aa9f15ea640c846710a9979379c Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Fri, 24 Jan 2014 21:38:09 -0500
Subject: [PATCH] Fixes RT#90942 Class::MOP::load_class deprecation warnings

---
 dist.ini                               | 1 +
 lib/Server/Control.pm                  | 3 ++-
 lib/Server/Control/HTTPServerSimple.pm | 3 ++-
 lib/Server/Control/NetServer.pm        | 3 ++-
 lib/Server/Control/t/Base.pm           | 3 ++-
 5 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/dist.ini b/dist.ini
index 1b04d7e..4bfa7e1 100644
--- a/dist.ini
+++ b/dist.ini
@@ -52,6 +52,7 @@ Pod::Usage = 0
 Proc::ProcessTable = 0.39
 Time::HiRes = 0
 YAML::Any = 0
+Class::Load = 0.20
 
 [Prereqs / RuntimeRecommends]
 Unix::Lsof = 0.0.9
diff --git a/lib/Server/Control.pm b/lib/Server/Control.pm
index a9341d1..d7fbbf6 100644
--- a/lib/Server/Control.pm
+++ b/lib/Server/Control.pm
@@ -4,6 +4,7 @@ use File::Basename;
 use File::Slurp qw(read_file);
 use File::Spec::Functions qw(catdir);
 use File::Which;
+use Class::Load;
 use Getopt::Long;
 use Hash::MoreUtils qw(slice_def);
 use IPC::System::Simple qw();
@@ -492,7 +493,7 @@ sub handle_cli {
             substr( $subclass, 0, 1 ) eq '+'
           ? substr( $subclass, 1 )
           : "Server::Control::$subclass";
-        Class::MOP::load_class($full_subclass);
+        Class::Load::load_class($full_subclass);
         return $full_subclass->handle_cli();
     }
 
diff --git a/lib/Server/Control/HTTPServerSimple.pm b/lib/Server/Control/HTTPServerSimple.pm
index 07b4bc2..dfdaad3 100644
--- a/lib/Server/Control/HTTPServerSimple.pm
+++ b/lib/Server/Control/HTTPServerSimple.pm
@@ -4,6 +4,7 @@ use Moose;
 use MooseX::StrictConstructor;
 use Moose::Meta::Class;
 use Moose::Util::TypeConstraints;
+use Class::Load;
 use strict;
 use warnings;
 
@@ -39,7 +40,7 @@ sub _build_server {
     my $self = shift;
 
     my $server_class = $self->server_class;
-    Class::MOP::load_class($server_class);
+    Class::Load::load_class($server_class);
     unless ( $server_class->can('net_server')
         && defined( $server_class->net_server() ) )
     {
diff --git a/lib/Server/Control/NetServer.pm b/lib/Server/Control/NetServer.pm
index 52a38bc..98d1555 100644
--- a/lib/Server/Control/NetServer.pm
+++ b/lib/Server/Control/NetServer.pm
@@ -2,6 +2,7 @@ package Server::Control::NetServer;
 use Carp;
 use Moose;
 use MooseX::StrictConstructor;
+use Class::Load;
 use strict;
 use warnings;
 
@@ -62,7 +63,7 @@ sub do_start {
     my $child = fork;
     croak "Can't fork: $!" unless defined($child);
     if ( !$child ) {
-        Class::MOP::load_class( $self->net_server_class );
+        Class::Load::load_class( $self->net_server_class );
         $self->net_server_class->run(
             background => 1,
             %{ $self->net_server_params }
diff --git a/lib/Server/Control/t/Base.pm b/lib/Server/Control/t/Base.pm
index 3277d08..2a27220 100644
--- a/lib/Server/Control/t/Base.pm
+++ b/lib/Server/Control/t/Base.pm
@@ -5,6 +5,7 @@ use File::Temp qw(tempfile tempdir);
 use Guard;
 use HTTP::Server::Simple;
 use Log::Any;
+use Class::Load;
 use Net::Server;
 use POSIX qw(geteuid getegid);
 use Server::Control::Util
@@ -111,7 +112,7 @@ sub test_stopstart : Tests(16) {
 
     # Make sure stopstart aborts when stop fails
     my $orig_class  = ref($ctl);
-    my $unstoppable = Class::MOP::Class->create_anon_class(
+    my $unstoppable = Class::Load::Class->create_anon_class(
         superclasses => [$orig_class],
         methods      => {
             do_stop => sub { die "can't stop!" }