Skip Menu |

This queue is for tickets about the RDF-Server CPAN distribution.

Report information
The Basics
Id: 90903
Status: open
Priority: 0/
Queue: RDF-Server
People
Owner: Nobody in particular
Requestors: upasna.shukla [...] gmail.com
cpan [...] zoffix.com
Cc:
AdminCc:
Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

History Show all quoted text
  Thu Nov 28 17:04:11 2013 upasna.shukla [...] gmail.com - Ticket created
Subject: New Moose may break your code
Date: Fri, 29 Nov 2013 03:34:00 +0530
To: bug-RDF-Server [...] rt.cpan.org
From: "Upasana Shukla" <upasna.shukla [...] gmail.com>
We recently deprecated Class::MOP::load_class in Moose. It appears that your module is affected. You can read more about the change here: https://metacpan.org/pod/release/ETHER/Moose-2.1106-TRIAL/lib/Moose/Manual/Delta.pod#pod2.1200 We recommend that you take a look at your code to see if it indeed does need to be updated with respect to the latest Moose release, 2.1106-TRIAL. If you have any questions, then please ask either on Moose mailing list : http://lists.perl.org/list/moose.html or on #moose & #moose-dev on irc.perl.org.
  Thu Nov 28 17:15:42 2013 ether [...] cpan.org - Reference by ticket #90657 added
  Fri Jan 24 21:29:05 2014 cpan [...] zoffix.com - Correspondence added
Attached patch fixes the issue. -- Cheers, ZZ [ https://metacpan.org/author/ZOFFIX ]
Subject: RDF-Server-0.08.patch
diff -Naur RDF-Server-0.08_orig/lib/RDF/Server/Model/RDFCore.pm RDF-Server-0.08/lib/RDF/Server/Model/RDFCore.pm --- RDF-Server-0.08_orig/lib/RDF/Server/Model/RDFCore.pm 2014-01-24 21:24:03.034556001 -0500 +++ RDF-Server-0.08/lib/RDF/Server/Model/RDFCore.pm 2014-01-24 21:24:50.006556616 -0500 @@ -10,13 +10,14 @@ use RDF::Core::Model; use RDF::Server::Resource::RDFCore; use Iterator::Simple qw( iterator ); +use Class::Load; has store => ( is => 'rw', isa => 'RDF::Core::Model', lazy => 1, default => sub { - Class::MOP::load_class('RDF::Core::Storage::Memory'); + Class::Load::load_class('RDF::Core::Storage::Memory'); new RDF::Core::Model( Storage => new RDF::Core::Storage::Memory ) } ); diff -Naur RDF-Server-0.08_orig/lib/RDF/Server/Role/Model.pm RDF-Server-0.08/lib/RDF/Server/Role/Model.pm --- RDF-Server-0.08_orig/lib/RDF/Server/Role/Model.pm 2014-01-24 21:24:03.034556001 -0500 +++ RDF-Server-0.08/lib/RDF/Server/Role/Model.pm 2014-01-24 21:25:06.494556831 -0500 @@ -3,7 +3,7 @@ use Moose::Role; use MooseX::Types::Moose qw( Str HashRef Bool Object ); -use Class::MOP; +use Class::Load; has base_uri => ( is => 'rw', @@ -37,7 +37,7 @@ isa => Object, lazy => 1, default => sub { - Class::MOP::load_class('Data::UUID'); + Class::Load::load_class('Data::UUID'); new Data::UUID; }, handles => { diff -Naur RDF-Server-0.08_orig/lib/RDF/Server/Semantic/Atom.pm RDF-Server-0.08/lib/RDF/Server/Semantic/Atom.pm --- RDF-Server-0.08_orig/lib/RDF/Server/Semantic/Atom.pm 2014-01-24 21:24:03.034556001 -0500 +++ RDF-Server-0.08/lib/RDF/Server/Semantic/Atom.pm 2014-01-24 21:25:32.478557172 -0500 @@ -4,7 +4,7 @@ with 'RDF::Server::Semantic'; -use Class::MOP (); +use Class::Load (); use Moose::Util::TypeConstraints; use MooseX::Types::Moose qw( HashRef ArrayRef ); @@ -61,7 +61,7 @@ my $class = $semantic . '::' . $info -> {'class'}; - Class::MOP::load_class($class); + Class::Load::load_class($class); my %c; if( is_ArrayRef( $config ) ) { @@ -80,12 +80,12 @@ my %eh_config = %{delete $c{model}}; my $eh_class = delete($eh_config{class}); eval { - Class::MOP::load_class('RDF::Server::Model::' . $eh_class); + Class::Load::load_class('RDF::Server::Model::' . $eh_class); $eh_class = 'RDF::Server::Model::' . $eh_class; }; if( $@ ) { eval { - Class::MOP::load_class($eh_class); + Class::Load::load_class($eh_class); }; if( $@ ) { confess "Unable to load $eh_class or RDF::Server::Model::$eh_class"; diff -Naur RDF-Server-0.08_orig/lib/RDF/Server/Semantic/RDF.pm RDF-Server-0.08/lib/RDF/Server/Semantic/RDF.pm --- RDF-Server-0.08_orig/lib/RDF/Server/Semantic/RDF.pm 2014-01-24 21:24:03.034556001 -0500 +++ RDF-Server-0.08/lib/RDF/Server/Semantic/RDF.pm 2014-01-24 21:25:52.810557439 -0500 @@ -4,7 +4,6 @@ with 'RDF::Server::Semantic'; -use Class::MOP (); use Moose::Util::TypeConstraints; use MooseX::Types::Moose qw( HashRef ArrayRef ); diff -Naur RDF-Server-0.08_orig/lib/RDF/Server/Types.pm RDF-Server-0.08/lib/RDF/Server/Types.pm --- RDF-Server-0.08_orig/lib/RDF/Server/Types.pm 2014-01-24 21:24:03.034556001 -0500 +++ RDF-Server-0.08/lib/RDF/Server/Types.pm 2014-01-24 21:26:29.674557922 -0500 @@ -1,5 +1,6 @@ package RDF::Server::Types; +use Class::Load; use MooseX::Types -declare => [qw( Handler Resource Model Renderable Mutable Container @@ -101,12 +102,12 @@ my $eh_class = delete $eh_config->{class}; #print STDERR "eh_class: $eh_class\n"; eval { - Class::MOP::load_class('RDF::Server::Model::' . $eh_class); + Class::Load::load_class('RDF::Server::Model::' . $eh_class); $eh_class = 'RDF::Server::Model::' . $eh_class; }; if( $@ ) { eval { - Class::MOP::load_class($eh_class); + Class::Load::load_class($eh_class); }; if( $@ ) { Carp::confess qq{Unable to load $eh_class or RDF::Server::Model::$eh_class}; diff -Naur RDF-Server-0.08_orig/lib/RDF/Server.pm RDF-Server-0.08/lib/RDF/Server.pm --- RDF-Server-0.08_orig/lib/RDF/Server.pm 2014-01-24 21:24:03.034556001 -0500 +++ RDF-Server-0.08/lib/RDF/Server.pm 2014-01-24 21:26:50.914558197 -0500 @@ -5,7 +5,7 @@ use RDF::Server::Types qw( Handler Protocol Interface Semantic Formatter ); use Sub::Exporter; use Sub::Name 'subname'; -use Class::MOP (); +use Class::Load (); use MooseX::Types::Moose qw( ArrayRef ); use Storable (); @@ -33,8 +33,8 @@ my( $class ) = @_; return( $class - && eval { Class::MOP::load_class($class) } - && Class::MOP::is_class_loaded($class) + && eval { Class::Load::load_class($class) } + && Class::Load::is_class_loaded($class) ); } diff -Naur RDF-Server-0.08_orig/Makefile.PL RDF-Server-0.08/Makefile.PL --- RDF-Server-0.08_orig/Makefile.PL 2014-01-24 21:24:03.030556000 -0500 +++ RDF-Server-0.08/Makefile.PL 2014-01-24 21:27:03.946558371 -0500 @@ -39,7 +39,7 @@ ### requires 'Moose' => 0.40; # at least 0.25 fails -requires 'Class::MOP' => 0.53; +requires 'Class::Load' => 0.20; requires 'Sub::Exporter' => 0.978; requires 'Sub::Name' => 0.03; requires 'MooseX::Types' => 0.04; diff -Naur RDF-Server-0.08_orig/META.yml RDF-Server-0.08/META.yml --- RDF-Server-0.08_orig/META.yml 2014-01-24 21:24:03.034556001 -0500 +++ RDF-Server-0.08/META.yml 2014-01-24 21:27:13.754558499 -0500 @@ -17,7 +17,7 @@ - inc - t requires: - Class::MOP: 0.53 + Class::Load: 0.20 Data::UUID: 1.148 DateTime: 0.42 HTTP::Request: 1.4 diff -Naur RDF-Server-0.08_orig/t/06types.t RDF-Server-0.08/t/06types.t --- RDF-Server-0.08_orig/t/06types.t 2014-01-24 21:24:03.034556001 -0500 +++ RDF-Server-0.08/t/06types.t 2014-01-24 21:27:45.530558916 -0500 @@ -1,7 +1,7 @@ use Test::More; use MooseX::Types::Moose qw( :all ); use RDF::Server; -use Class::MOP; +use Class::Load; eval "use Carp::Always"; # for those who don't have it my %tests; @@ -17,7 +17,7 @@ ); foreach my $module ( keys %tests ) { - if( eval { Class::MOP::load_class($module) } ) { + if( eval { Class::Load::load_class($module) } ) { $tests += $tests{$module}; $module -> import(qw(:all)); } diff -Naur RDF-Server-0.08_orig/t/11formatters/03atom.t RDF-Server-0.08/t/11formatters/03atom.t --- RDF-Server-0.08_orig/t/11formatters/03atom.t 2014-01-24 21:24:03.034556001 -0500 +++ RDF-Server-0.08/t/11formatters/03atom.t 2014-01-24 21:27:30.386558716 -0500 @@ -44,7 +44,7 @@ SKIP: { skip 'RDF::Core not available', 2 unless not not eval 'require RDF::Core'; - Class::MOP::load_class( 'RDF::Server::Model::RDFCore' ); + Class::Load::load_class( 'RDF::Server::Model::RDFCore' ); my $model = RDF::Server::Model::RDFCore -> new( namespace => 'http://www.example.com/',
  Fri Jan 24 21:29:05 2014 The RT System itself - Status changed from 'new' to 'open'
  Fri Jan 24 21:29:30 2014 cpan [...] zoffix.com - Requestor ZOFFIX added