From d535f0faf8fd05abd265caa9efbf0fab399acb53 Mon Sep 17 00:00:00 2001
From: Franck Cuny <franck@lumberjaph.net>
Date: Mon, 16 Feb 2015 20:21:15 -0800
Subject: Fix various deprecations.

enum are created with array ref, not array.

Class::MOP::load_class is replaced with Class::Load::load_class.
---
 lib/Net/HTTP/API/Meta/Method.pm        | 2 +-
 lib/Net/HTTP/API/Role/Format.pm        | 2 +-
 lib/Net/HTTP/API/Role/Serialization.pm | 3 ++-
 3 files changed, 4 insertions(+), 3 deletions(-)

(limited to 'lib/Net/HTTP/API')

diff --git a/lib/Net/HTTP/API/Meta/Method.pm b/lib/Net/HTTP/API/Meta/Method.pm
index 8dd7cb8..7294de3 100644
--- a/lib/Net/HTTP/API/Meta/Method.pm
+++ b/lib/Net/HTTP/API/Meta/Method.pm
@@ -15,7 +15,7 @@ subtype UriPath
     => where { $_ =~ m!^/! }
     => message {"path must start with /"};
 
-enum Method => qw(HEAD GET POST PUT DELETE);
+enum Method => [qw/HEAD GET POST PUT DELETE/];
 
 has path   => (is => 'ro', isa => 'UriPath', required => 1);
 has method => (is => 'ro', isa => 'Method', required => 1);
diff --git a/lib/Net/HTTP/API/Role/Format.pm b/lib/Net/HTTP/API/Role/Format.pm
index 9cbd23a..6d32186 100644
--- a/lib/Net/HTTP/API/Role/Format.pm
+++ b/lib/Net/HTTP/API/Role/Format.pm
@@ -17,7 +17,7 @@ subtype Format => as 'Str' => where {
     grep {/^$format$/} keys %{content_type()};
 };
 
-enum 'FormatMode' => qw(content-type append);
+enum 'FormatMode' => [qw(content-type append)];
 
 has api_format_options => (
     is      => 'rw',
diff --git a/lib/Net/HTTP/API/Role/Serialization.pm b/lib/Net/HTTP/API/Role/Serialization.pm
index 2c21d01..b3b7cf5 100644
--- a/lib/Net/HTTP/API/Role/Serialization.pm
+++ b/lib/Net/HTTP/API/Role/Serialization.pm
@@ -6,6 +6,7 @@ use 5.010;
 
 use Try::Tiny;
 use Moose::Role;
+use Class::Load;
 use Net::HTTP::API::Error;
 
 has serializers => (
@@ -68,7 +69,7 @@ sub _load_serializer {
     my $self   = shift;
     my $format = shift || $self->api_format;
     my $parser = "Net::HTTP::API::Parser::" . uc($format);
-    if (Class::MOP::load_class($parser)) {
+    if (Class::Load::load_class($parser)) {
         my $o = $parser->new(format_options => $self->api_format_options);
         $self->_add_serializer($format => $o);
         return $o;
-- 
cgit 1.4.1