Skip Menu |
 

This queue is for tickets about the Reaction CPAN distribution.

Report information
The Basics
Id: 90901
Status: open
Priority: 0/
Queue: Reaction

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)



From upasna.shukla [...] gmail.com Thu Nov 28 17: 04:07 2013
X-Spam-Status: No, score=-4.963 tagged_above=-99.9 required=10 tests=[AWL=0.601, BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_HI=-5, RCVD_IN_SORBS_WEB=0.77, SPF_SOFTFAIL=0.665] autolearn=unavailable
X-Spam-Flag: NO
Message-ID: <5297bdcb.c99f420a.3af2.ffff8de1 [...] mx.google.com>
X-Received: by 10.67.4.136 with SMTP id ce8mr23454896pad.158.1385676235945; Thu, 28 Nov 2013 14:03:55 -0800 (PST)
X-Virus-Scanned: Debian amavisd-new at bestpractical.com
X-Spam-Score: -4.963
Received: from localhost (localhost [127.0.0.1]) by hipster.bestpractical.com (Postfix) with ESMTP id 2D8D0240A36 for <cpan-bug+Reaction [...] hipster.bestpractical.com>; Thu, 28 Nov 2013 17:04:07 -0500 (EST)
Received: from hipster.bestpractical.com ([127.0.0.1]) by localhost (hipster.bestpractical.com [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id AAYFReb2p3Fs for <cpan-bug+Reaction [...] hipster.bestpractical.com>; Thu, 28 Nov 2013 17:04:07 -0500 (EST)
Received: from la.mx.develooper.com (x1.develooper.com [207.171.7.70]) by hipster.bestpractical.com (Postfix) with SMTP id BFF8A2409CA for <bug-Reaction [...] rt.cpan.org>; Thu, 28 Nov 2013 17:04:06 -0500 (EST)
Received: (qmail 15702 invoked by alias); 28 Nov 2013 22:04:05 -0000
Received: from mail-pb0-f49.google.com (HELO mail-pb0-f49.google.com) (209.85.160.49) by la.mx.develooper.com (qpsmtpd/0.28) with ESMTP; Thu, 28 Nov 2013 14:04:04 -0800
Received: by mail-pb0-f49.google.com with SMTP id jt11so13225189pbb.36 for <bug-Reaction [...] rt.cpan.org>; Thu, 28 Nov 2013 14:04:00 -0800 (PST)
Received: from localhost.localdomain ([182.68.179.192]) by mx.google.com with ESMTPSA id xe9sm110400606pab.0.2013.11.28.14.03.54 for <bug-Reaction [...] rt.cpan.org> (version=TLSv1.1 cipher=ECDHE-RSA-RC4-SHA bits=128/128); Thu, 28 Nov 2013 14:03:55 -0800 (PST)
Authentication-Results: hipster.bestpractical.com (amavisd-new); dkim=pass header.i= [...] gmail.com
Delivered-To: cpan-bug+Reaction [...] hipster.bestpractical.com
Subject: New Moose may break your code
Return-Path: <upasna.shukla [...] gmail.com>
X-RT-Mail-Extension: reaction
X-Original-To: cpan-bug+Reaction [...] hipster.bestpractical.com
X-Spam-Check-BY: la.mx.develooper.com
Dkim-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=message-id:to:from:subject:date; bh=oh0CH7oRWeNlgNNhVDujxXn9+RXcHX3bHRtYr9abAfo=; b=Xc2g3V8koFRfV/6xfHokhMgzYukBDezsDlulyvZT8Cc7cLMdQS+ng1cEF23Rp61kVR OMhdJzSPso8oEeaYsMVhnbOCK+fyMcIswVgJuDeqJLt1vSUnr+4fPZncl2WpnTm2aDpB H1k+FrtThLwDlG/LK/bGhE8UAKFnPxL+znR0Obv4Q4nc9kCpMR3qODQior1mKP/Bbjm7 6gctFqn9DqkX7XbpVGV+at3WTNj1POM4XQTWZ1fWePB0V2wkoAHQhcvaRP36mEARQ1Aj heKqMz0BMDnamrARKlIZ+EgWffqGJzv6xulvVQtKHBQWW+DztNEIstg02lNkc6vzZFWO ULPQ==
Date: Fri, 29 Nov 2013 03:33:52 +0530
X-Spam-Level:
To: bug-Reaction [...] rt.cpan.org
From: "Upasana Shukla" <upasna.shukla [...] gmail.com>
X-RT-Original-Encoding: ascii
content-type: text/plain; charset="utf-8"
X-RT-Interface: Email
Content-Length: 535
Download (untitled) / with headers
text/plain 535b
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.
MIME-Version: 1.0
In-Reply-To: <5297bdcb.c99f420a.3af2.ffff8de1 [...] mx.google.com>
X-Mailer: MIME-tools 5.504 (Entity 5.504)
X-RT-Interface: Web
References: <5297bdcb.c99f420a.3af2.ffff8de1 [...] mx.google.com>
Content-Type: multipart/mixed; boundary="----------=_1390445186-29614-3"
Message-ID: <rt-4.0.18-29614-1390445186-1191.90901-0-0 [...] rt.cpan.org>
X-RT-Original-Encoding: utf-8
X-RT-Encrypt: 0
X-RT-Sign: 0
Content-Length: 0
Content-Disposition: inline
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: binary
X-RT-Original-Encoding: utf-8
Content-Length: 171
Download (untitled) / with headers
text/plain 171b
Attached patch fixes the issue. Also, not sure if it's intentionaly, bit you packed 2.8MB .git dir in this distro. -- Cheers, ZZ [ https://metacpan.org/author/ZOFFIX ]
MIME-Version: 1.0
Subject: Reaction-0.002005.patch
X-Mailer: MIME-tools 5.504 (Entity 5.504)
Content-Type: text/x-diff; name="Reaction-0.002005.patch"
Content-Disposition: inline; filename="Reaction-0.002005.patch"
Content-Transfer-Encoding: binary
Content-Length: 8996
diff -Naur Reaction-0.002005_orig/lib/Catalyst/Model/Reaction/InterfaceModel/DBIC.pm Reaction-0.002005/lib/Catalyst/Model/Reaction/InterfaceModel/DBIC.pm --- Reaction-0.002005_orig/lib/Catalyst/Model/Reaction/InterfaceModel/DBIC.pm 2014-01-22 21:38:30.025680648 -0500 +++ Reaction-0.002005/lib/Catalyst/Model/Reaction/InterfaceModel/DBIC.pm 2014-01-22 21:39:28.729681417 -0500 @@ -4,7 +4,7 @@ use Catalyst::Utils; use Catalyst::Component; -use Class::MOP; +use Class::Load; #XXX so yeah, thisis kinda hacky. big whop though, i need it. #this may just all together go away in the future @@ -21,7 +21,7 @@ my %cfg = %{ Catalyst::Utils::merge_hashes($class->config, $args) }; my $im_class = $cfg{im_class}; - Class::MOP::load_class($im_class); + Class::Load::load_class($im_class); #XXXthis could be cut out later for a more elegant method my @domain_models = $im_class->domain_models; @@ -31,7 +31,7 @@ if @domain_models > 1; my $domain_model = shift @domain_models; my $schema_class = $domain_model->_isa_metadata; - Class::MOP::load_class($schema_class); + Class::Load::load_class($schema_class); my $params = $cfg{db_params} || {}; my $schema = $schema_class diff -Naur Reaction-0.002005_orig/lib/Reaction/Class.pm Reaction-0.002005/lib/Reaction/Class.pm --- Reaction-0.002005_orig/lib/Reaction/Class.pm 2014-01-22 21:38:30.033680648 -0500 +++ Reaction-0.002005/lib/Reaction/Class.pm 2014-01-22 21:41:56.133683348 -0500 @@ -1,6 +1,7 @@ package Reaction::Class; use Moose qw(confess); +use Class::Load; use Sub::Exporter (); use Sub::Name (); use Reaction::Types::Core ':all'; @@ -120,7 +121,7 @@ if ($@) { confess "Couldn't make ${class} a Reaction class: $@"; } } if (@supers) { - Class::MOP::load_class($_) for @supers; + Class::Load::load_class($_) for @supers; $class->meta->superclasses(@supers); } $self->setup_and_cleanup($package, $setup); diff -Naur Reaction-0.002005_orig/lib/Reaction/InterfaceModel/Collection/DBIC/Role/Base.pm Reaction-0.002005/lib/Reaction/InterfaceModel/Collection/DBIC/Role/Base.pm --- Reaction-0.002005_orig/lib/Reaction/InterfaceModel/Collection/DBIC/Role/Base.pm 2014-01-22 21:38:30.025680648 -0500 +++ Reaction-0.002005/lib/Reaction/InterfaceModel/Collection/DBIC/Role/Base.pm 2014-01-22 21:40:03.449681872 -0500 @@ -2,7 +2,7 @@ use Reaction::Role; use Scalar::Util qw/blessed/; -use Class::MOP; +use Class::Load; # WARNING - DANGER: this is just an RFC, please DO NOT USE YET @@ -27,7 +27,7 @@ #implements BUILD => as { # my $self = shift; -# Class::MOP::load_class($self->_im_class); +# Class::Load::load_class($self->_im_class); # confess "_im_result_class must be a Reaction::InterfaceModel::Object" # unless $self->_im_class->isa("Reaction::InterfaceModel::Object"); # confess "_im_result_class must have an inflate_result method" diff -Naur Reaction-0.002005_orig/lib/Reaction/InterfaceModel/Reflector/DBIC.pm Reaction-0.002005/lib/Reaction/InterfaceModel/Reflector/DBIC.pm --- Reaction-0.002005_orig/lib/Reaction/InterfaceModel/Reflector/DBIC.pm 2014-01-22 21:38:30.033680648 -0500 +++ Reaction-0.002005/lib/Reaction/InterfaceModel/Reflector/DBIC.pm 2014-01-22 21:41:09.169682733 -0500 @@ -9,7 +9,7 @@ use aliased 'Reaction::InterfaceModel::Object'; use aliased 'Reaction::InterfaceModel::Action'; use Reaction::Class; -use Class::MOP; +use Class::Load; use Catalyst::Utils; @@ -146,8 +146,8 @@ #load all necessary classes confess("model_class and schema_class are required parameters") unless($model && $schema); - Class::MOP::load_class( $base ); - Class::MOP::load_class( $schema ); + Class::Load::load_class( $base ); + Class::Load::load_class( $schema ); my $meta = $self->_load_or_create( $model, superclasses => [$base], @@ -219,7 +219,7 @@ #there's a lot of guessing going on, but it should work fine on most cases INNER: for my $needle (@haystack){ my $isa = $needle->_isa_metadata; - next INNER unless Class::MOP::load_class( $isa->_isa_metadata ); + next INNER unless Class::Load::load_class( $isa->_isa_metadata ); next INNER unless $isa->isa('DBIx::Class::Schema'); if( $source_name ){ @@ -350,8 +350,8 @@ unless $object && $source; $class ||= $self->class_name_for_collection_of($object); - Class::MOP::load_class( $base ); - Class::MOP::load_class( $object ); + Class::Load::load_class( $base ); + Class::Load::load_class( $object ); my $meta = $self->_load_or_create( $class, @@ -441,9 +441,9 @@ $class ||= $self->class_name_from_source_name($parent, $source_name); - Class::MOP::load_class($parent); - Class::MOP::load_class($schema) if $schema; - Class::MOP::load_class($source_class); + Class::Load::load_class($parent); + Class::Load::load_class($schema) if $schema; + Class::Load::load_class($source_class); my $meta = $self->_load_or_create( $class, @@ -725,9 +725,9 @@ my $attr_rules = delete $opts{attributes}; $class ||= $object->_default_action_class_for($name); - Class::MOP::load_class( $base ); - Class::MOP::load_class( $object ); - Class::MOP::load_class( $source ); + Class::Load::load_class( $base ); + Class::Load::load_class( $object ); + Class::Load::load_class( $source ); #print STDERR "\n\t", ref $attr_rules eq 'ARRAY' ? @$attr_rules : $attr_rules,"\n"; # attributes => undef, #default to qr/./ @@ -889,7 +889,7 @@ my ($self, $class) = @_; my $file = $class . '.pm'; $file =~ s{::}{/}g; - my $ret = eval { Class::MOP::load_class($class) }; + my $ret = eval { Class::Load::load_class($class) }; if ($INC{$file} && $@) { confess "Error loading ${class}: $@"; } diff -Naur Reaction-0.002005_orig/lib/Reaction/UI/Skin.pm Reaction-0.002005/lib/Reaction/UI/Skin.pm --- Reaction-0.002005_orig/lib/Reaction/UI/Skin.pm 2014-01-22 21:38:30.033680648 -0500 +++ Reaction-0.002005/lib/Reaction/UI/Skin.pm 2014-01-22 21:42:44.749683985 -0500 @@ -8,7 +8,7 @@ use File::ShareDir; use File::Basename; use Config::Any; - +use Class::Load; use aliased 'Path::Class::Dir'; use namespace::clean -except => [ qw(meta) ]; @@ -175,10 +175,10 @@ foreach my $class (@haystack) { #if the class is already loaded skip the call to Installed etc. - return $class if Class::MOP::is_class_loaded($class); + return $class if Class::Load::is_class_loaded($class); next unless Class::Inspector->installed($class); - my $ok = eval { Class::MOP::load_class($class) }; + my $ok = eval { Class::Load::load_class($class) }; confess("Failed to load widget '${class}': $@") if $@; return $class; } diff -Naur Reaction-0.002005_orig/lib/Reaction/UI/View.pm Reaction-0.002005/lib/Reaction/UI/View.pm --- Reaction-0.002005_orig/lib/Reaction/UI/View.pm 2014-01-22 21:38:30.033680648 -0500 +++ Reaction-0.002005/lib/Reaction/UI/View.pm 2014-01-22 21:43:05.757684261 -0500 @@ -7,7 +7,7 @@ use Reaction::UI::RenderingContext; use aliased 'Reaction::UI::Skin'; use aliased 'Path::Class::Dir'; - +use Class::Load; use namespace::clean -except => [ qw(meta) ]; @@ -122,7 +122,7 @@ next if $super eq View; if ($super =~ /::View::/) { (my $class = $super) =~ s/::View::/::${rel}::/; - if (eval { Class::MOP::load_class($class) }) { + if (eval { Class::Load::load_class($class) }) { return $class; } } diff -Naur Reaction-0.002005_orig/lib/Reaction/UI/ViewPort/SearchableListViewContainer.pm Reaction-0.002005/lib/Reaction/UI/ViewPort/SearchableListViewContainer.pm --- Reaction-0.002005_orig/lib/Reaction/UI/ViewPort/SearchableListViewContainer.pm 2014-01-22 21:38:30.033680648 -0500 +++ Reaction-0.002005/lib/Reaction/UI/ViewPort/SearchableListViewContainer.pm 2014-01-22 21:42:19.925683660 -0500 @@ -8,6 +8,7 @@ use aliased 'Reaction::UI::ViewPort'; use aliased 'Reaction::UI::ViewPort::Collection::Role::Pager', 'PagerRole'; +use Class::Load; use Method::Signatures::Simple; use namespace::clean -except => 'meta'; @@ -33,7 +34,7 @@ or confess "Argument action_class is required"; # TODO: how do we autodiscover spec classes? # $spec_class =~ s/^::/${\SearchSpec}::/; - Class::MOP::load_class($spec_class); + Class::Load::load_class($spec_class); my $spec = do { if (my $string = $args->{ctx}->req->query_params->{$spec_event_id}) { $spec_class->from_string($string, $args->{spec}||{}); diff -Naur Reaction-0.002005_orig/Makefile.PL Reaction-0.002005/Makefile.PL --- Reaction-0.002005_orig/Makefile.PL 2014-01-22 21:38:29.921680646 -0500 +++ Reaction-0.002005/Makefile.PL 2014-01-22 21:44:03.189685013 -0500 @@ -19,6 +19,7 @@ requires 'Config::General' => '2.42'; requires 'Crypt::Eksblowfish::Bcrypt' => '0.005'; requires 'Class::MOP' => '0.81'; +requires 'Class::Load' => '0.20'; requires 'DBIx::Class' => '0.08100'; requires 'DBIx::Class::IntrospectableM2M' => '0.001001'; requires 'DateTime' => '0.47';


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.