[Catalyst-commits] r10750 - in Catalyst-Plugin-FillInForm/trunk: . lib/Catalyst/Plugin

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-06-30 20:58:19 +0000 (Tue, 30 Jun 2009)
New Revision: 10750

Modified:
   Catalyst-Plugin-FillInForm/trunk/Changes
   Catalyst-Plugin-FillInForm/trunk/Makefile.PL
   Catalyst-Plugin-FillInForm/trunk/lib/Catalyst/Plugin/FillInForm.pm
Log:
Port from NEXT to MRO::Compat.

Modified: Catalyst-Plugin-FillInForm/trunk/Changes
===================================================================
--- Catalyst-Plugin-FillInForm/trunk/Changes	2009-06-30 20:41:17 UTC (rev 10749)
+++ Catalyst-Plugin-FillInForm/trunk/Changes	2009-06-30 20:58:19 UTC (rev 10750)
@@ -1,5 +1,6 @@
 Revision history for Perl extension Catalyst::Plugin::FillInForm.
 
+        - Port from NEXT to MRO::Compat.
         - Suppress warning in Catalyst 5.80 caused by assigning undef
           to the body
 

Modified: Catalyst-Plugin-FillInForm/trunk/Makefile.PL
===================================================================
--- Catalyst-Plugin-FillInForm/trunk/Makefile.PL	2009-06-30 20:41:17 UTC (rev 10749)
+++ Catalyst-Plugin-FillInForm/trunk/Makefile.PL	2009-06-30 20:58:19 UTC (rev 10750)
@@ -5,6 +5,7 @@
 all_from  'lib/Catalyst/Plugin/FillInForm.pm';
 
 requires 'Catalyst' => '5.7012';
+requires 'MRO::Compat';
 requires 'HTML::FillInForm';
 
 build_requires 'Catalyst::Action::RenderView';

Modified: Catalyst-Plugin-FillInForm/trunk/lib/Catalyst/Plugin/FillInForm.pm
===================================================================
--- Catalyst-Plugin-FillInForm/trunk/lib/Catalyst/Plugin/FillInForm.pm	2009-06-30 20:41:17 UTC (rev 10749)
+++ Catalyst-Plugin-FillInForm/trunk/lib/Catalyst/Plugin/FillInForm.pm	2009-06-30 20:58:19 UTC (rev 10750)
@@ -1,7 +1,7 @@
 package Catalyst::Plugin::FillInForm;
 
 use strict;
-use NEXT;
+use MRO::Compat;
 use HTML::FillInForm;
 
 our $VERSION = '0.10';
@@ -64,7 +64,7 @@
           || $c->form->has_invalid
           || $c->stash->{error};
     }
-    return $c->NEXT::finalize(@_);
+    return $c->maybe::next::method(@_);
 }
 
 =head2 METHODS