Skip Menu |

This queue is for tickets about the Device-WWN CPAN distribution.

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

History Show all quoted text
  Fri Jan 24 20:40:56 2014 cpan [...] zoffix.com - Ticket created
Subject: [PATCH] Moose Class::MOP::load_class Deprecation Warnings
Hey, Attached patch fixes the warnings in the tests produced by the deprecation of Class::MOP::load_class. Below is a blurb the Moose guys have been distributing. --- 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. -- Cheers, ZZ [ https://metacpan.org/author/ZOFFIX ]
  Fri Jan 24 20:41:29 2014 cpan [...] zoffix.com - Reference by ticket #90657 added
  Fri Jan 24 20:41:57 2014 cpan [...] zoffix.com - Correspondence added
Forgot to attach it :) See attached.
Subject: Device-WWN-1.01.patch
diff -Naur Device-WWN-1.01_orig/Makefile.PL Device-WWN-1.01/Makefile.PL --- Device-WWN-1.01_orig/Makefile.PL 2014-01-24 20:37:24.122364673 -0500 +++ Device-WWN-1.01/Makefile.PL 2014-01-24 20:39:38.198366427 -0500 @@ -7,7 +7,7 @@ Moose Carp::Clan::Share Device::OUI Module::Find Sub::Exporter ); test_requires( $_ ) for qw( - Test::More Test::Most ok + Test::More Class::Load Test::Most ok ); extra_tests(); diff -Naur Device-WWN-1.01_orig/t/Device-WWN-EMC-Symmetrix.t Device-WWN-1.01/t/Device-WWN-EMC-Symmetrix.t --- Device-WWN-1.01_orig/t/Device-WWN-EMC-Symmetrix.t 2014-01-24 20:37:24.122364673 -0500 +++ Device-WWN-1.01/t/Device-WWN-EMC-Symmetrix.t 2014-01-24 20:39:27.910366295 -0500 @@ -1,6 +1,7 @@ #!perl use strict; use warnings; use Test::Most tests => 6; +use Class::Load; use ok 'Device::WWN::EMC::Symmetrix'; use ok 'Device::WWN'; @@ -77,7 +78,7 @@ for my $x ( @values ) { #explain "About to test ", $x; my $class = delete $x->{ 'class' } || 'Device::WWN'; - Class::MOP::load_class( $class ); + Class::Load::load_class( $class ); unless ( $class eq 'Device::WWN' ) { my @sc = grep { $_ eq $class } Device::WWN->find_subclasses( $x->{ 'wwn' } ); diff -Naur Device-WWN-1.01_orig/t/Device-WWN.t Device-WWN-1.01/t/Device-WWN.t --- Device-WWN-1.01_orig/t/Device-WWN.t 2014-01-24 20:37:24.122364673 -0500 +++ Device-WWN-1.01/t/Device-WWN.t 2014-01-24 20:39:51.142366599 -0500 @@ -1,5 +1,6 @@ #!perl use strict; use warnings; +use Class::Load; use Test::Most tests => 213; use ok 'Device::WWN'; @@ -199,7 +200,7 @@ for my $x ( @values ) { #explain "About to test ", $x; my $class = delete $x->{ 'class' } || 'Device::WWN'; - Class::MOP::load_class( $class ); + Class::Load::load_class( $class ); unless ( $class eq 'Device::WWN' ) { my @sc = grep { $_ eq $class } Device::WWN->find_subclasses( $x->{ 'wwn' } );