Skip Menu |

This queue is for tickets about the Catalyst-Controller-FormBuilder CPAN distribution.

Report information
The Basics
Id: 45562
Status: resolved
Priority: 0/
Queue: Catalyst-Controller-FormBuilder

People
Owner: Nobody in particular
Requestors: toapole [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 0.04
Fixed in: (no value)



Subject: Catalyst 5.8 "deprecated" warning
After installing Catalyst 5.8: Catalyst::Controller::FormBuilder is trying to use NEXT, which is deprecated. Please see the Class::C3::Adopt::NEXT documentation for details at C:/strawberry/perl/site/lib/Catalyst/Controller/FormBuilder.pm line 12
Subject: Catalyst 5.8 "deprecated" warning +patch
From: toapole [...] gmail.com
@@ -2,6 +2,7 @@ use strict; use base qw/Catalyst::Controller Class::Accessor::Fast/; +use MRO::Compat; our $VERSION = "0.04"; @@ -9,7 +10,7 @@ sub new { my $class = shift; - my $self = $class->NEXT::new(@_); + my $self = $class->next::method(@_); $self->__setup(); return $self; }
Subject: Catalyst 5.8 "deprecated" warning + Action patch
From: toapole [...] gmail.com
@@ -5,7 +5,7 @@ use CGI::FormBuilder::Source::File; use File::Spec; use Class::Inspector; -use NEXT; +use Class::C3::Adopt::NEXT; use Scalar::Util (); use base qw/Catalyst::Action Class::Accessor::Fast Class::Data::Inheritable/; @@ -126,7 +126,7 @@ my $self = shift; my ( $controller, $c ) = @_; - return $self->NEXT::execute(@_) + return $self->next::method(@_) unless exists $self->attributes->{ActionClass} && $self->attributes->{ActionClass}[0] eq $controller->_fb_setup->{action}; @@ -134,7 +134,7 @@ my $form = $self->_setup_form(@_); Scalar::Util::weaken($form->{c}); $controller->_formbuilder($form); - $self->NEXT::execute(@_); + $self->next::method(@_); $controller->_formbuilder($form); # keep the same form in case of forwards $self->setup_template_vars( @_ );