diff options
author | Franck Cuny <franck@lumberjaph.net> | 2015-02-16 20:21:15 -0800 |
---|---|---|
committer | Franck Cuny <franck@lumberjaph.net> | 2015-02-16 20:21:15 -0800 |
commit | d535f0faf8fd05abd265caa9efbf0fab399acb53 (patch) | |
tree | ce52072a494fa5a06054d7e1551248150b43a9b2 /lib/Net/HTTP/API/Role | |
parent | Add __END__ section to all the lib files. (diff) | |
download | net-http-api-d535f0faf8fd05abd265caa9efbf0fab399acb53.tar.gz |
Fix various deprecations.
enum are created with array ref, not array. Class::MOP::load_class is replaced with Class::Load::load_class.
Diffstat (limited to '')
-rw-r--r-- | lib/Net/HTTP/API/Role/Format.pm | 2 | ||||
-rw-r--r-- | lib/Net/HTTP/API/Role/Serialization.pm | 3 |
2 files changed, 3 insertions, 2 deletions
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; |