[libmagpie-perl] 01/09: Fixes RT#90907 Class::MOP::load_class deprecation warnings

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to branch master
in repository libmagpie-perl.

commit fbd70f88456e3d0e55db5ee59dead8ed19baa506
Author: Zoffix Znet <cpan at zoffix.com>
Date:   Fri Jan 24 22:40:21 2014 -0500

    Fixes RT#90907 Class::MOP::load_class deprecation warnings
---
 dist.ini                       | 1 +
 lib/Magpie/ConfigReader/XML.pm | 3 ++-
 lib/Magpie/Event.pm            | 5 +++--
 lib/Magpie/Resource/DBIC.pm    | 3 ++-
 lib/Magpie/Resource/Kioku.pm   | 3 ++-
 lib/Magpie/Types.pm            | 5 +++--
 6 files changed, 13 insertions(+), 7 deletions(-)

diff --git a/dist.ini b/dist.ini
index c596efa..992cc6d 100644
--- a/dist.ini
+++ b/dist.ini
@@ -46,6 +46,7 @@ Try::Tiny = 0.11
 URI = 1.59
 MooseX::Role::Parameterized = 0
 Data::Printer = 0
+Class::Load = 0.20
 
 
 [Prereqs / RuntimeRecommends]
diff --git a/lib/Magpie/ConfigReader/XML.pm b/lib/Magpie/ConfigReader/XML.pm
index 9264c04..017e938 100644
--- a/lib/Magpie/ConfigReader/XML.pm
+++ b/lib/Magpie/ConfigReader/XML.pm
@@ -5,6 +5,7 @@ use Moose;
 use XML::LibXML;
 use Magpie::Util;
 use Magpie::Plugin::URITemplate;
+use Class::Load;
 
 #use Data::Printer;
 
@@ -243,7 +244,7 @@ sub process_accept_matrix {
 }
 
 sub process_assets {
-    Class::MOP::load_class('Bread::Board');
+    Class::Load::load_class('Bread::Board');
     my $self = shift;
     my $node = shift;
     foreach my $container ($node->findnodes('./container')) {
diff --git a/lib/Magpie/Event.pm b/lib/Magpie/Event.pm
index d56b435..090e307 100644
--- a/lib/Magpie/Event.pm
+++ b/lib/Magpie/Event.pm
@@ -7,6 +7,7 @@ with qw( Magpie::Event::Symbol Magpie::Types );
 use Magpie::Constants;
 use Magpie::SymbolTable;
 use Magpie::Util;
+use Class::Load;
 use Plack::Request;
 use Plack::Response;
 use Try::Tiny;
@@ -195,7 +196,7 @@ sub load_handler {
         my $handler_error = undef;
 
         try {
-            Class::MOP::load_class( $handler );
+            Class::Load::load_class( $handler );
         }
         catch {
             $handler_error = "Fatal error loading handler class '$handler': $_ \n";
@@ -209,7 +210,7 @@ sub load_handler {
         }
 
 		if ( $handler->isa('Plack::Middleware') ) {
-            Class::MOP::load_class( 'Magpie::Transformer::Middleware' );
+            Class::Load::load_class( 'Magpie::Transformer::Middleware' );
 			my $munged_args = {
 				middleware_args => $handler_args,
 				middleware_class => $handler,
diff --git a/lib/Magpie/Resource/DBIC.pm b/lib/Magpie/Resource/DBIC.pm
index 5802548..4d112d3 100644
--- a/lib/Magpie/Resource/DBIC.pm
+++ b/lib/Magpie/Resource/DBIC.pm
@@ -5,6 +5,7 @@ package Magpie::Resource::DBIC;
 use Moose;
 extends 'Magpie::Resource';
 with 'Magpie::Plugin::DBI';
+use Class::Load;
 use Magpie::Constants;
 use Try::Tiny;
 
@@ -205,7 +206,7 @@ sub POST {
 
     # if we make it here there is no existing record, so make a new one.
     try {
-        Class::MOP::load_class($wrapper_class);
+        Class::Load::load_class($wrapper_class);
         $to_store = $wrapper_class->new(%args);
     }
     catch {
diff --git a/lib/Magpie/Resource/Kioku.pm b/lib/Magpie/Resource/Kioku.pm
index 01ed6af..2e876aa 100644
--- a/lib/Magpie/Resource/Kioku.pm
+++ b/lib/Magpie/Resource/Kioku.pm
@@ -7,6 +7,7 @@ extends 'Magpie::Resource';
 use Magpie::Constants;
 use Try::Tiny;
 use KiokuDB;
+use Class::Load;
 
 has data_source => (
     is         => 'ro',
@@ -206,7 +207,7 @@ sub POST {
 
     # if we make it here there is no existing record, so make a new one.
     try {
-        Class::MOP::load_class($wrapper_class);
+        Class::Load::load_class($wrapper_class);
         $to_store = $wrapper_class->new(%args);
     }
     catch {
diff --git a/lib/Magpie/Types.pm b/lib/Magpie/Types.pm
index fa41e16..b2c70e1 100644
--- a/lib/Magpie/Types.pm
+++ b/lib/Magpie/Types.pm
@@ -4,6 +4,7 @@ use Moose::Role;
 #use HTTP::Throwable::Factory;
 use Magpie::Error;
 use Moose::Util::TypeConstraints;
+use Class::Load;
 
 my %http_lookup = (
     300 => 'MultipleChoices',
@@ -62,13 +63,13 @@ coerce 'MagpieResourceObject'
         => via {
             my $args = $_;
             my $class = delete $args->{class};
-            Class::MOP::load_class( $class );
+            Class::Load::load_class( $class );
             $class->new( $args );
         },
     => from 'Str'
         => via {
             my $class = shift;
-            Class::MOP::load_class( $class );
+            Class::Load::load_class( $class );
             $class->new;
         },
 ;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmagpie-perl.git