[Catalyst-commits] r9251 - in trunk/Catalyst-View-TT: . lib/Catalyst/View

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-02-08 08:07:13 +0000 (Sun, 08 Feb 2009)
New Revision: 9251

Modified:
   trunk/Catalyst-View-TT/Changes
   trunk/Catalyst-View-TT/Makefile.PL
   trunk/Catalyst-View-TT/lib/Catalyst/View/TT.pm
Log:
Switch View::TT from NEXT to MRO::Compat

Modified: trunk/Catalyst-View-TT/Changes
===================================================================
--- trunk/Catalyst-View-TT/Changes	2009-02-08 08:04:11 UTC (rev 9250)
+++ trunk/Catalyst-View-TT/Changes	2009-02-08 08:07:13 UTC (rev 9251)
@@ -1,6 +1,7 @@
 Revision history for Perl extension Catalyst::View::TT.
 
 0.28    XXXX
+        - Change from NEXT to MRO::Compat (t0m)
         - fix pod generated by the helper (RT #33983)
         - remove stray newline from generated lib/config/col template (RT #35340)
 

Modified: trunk/Catalyst-View-TT/Makefile.PL
===================================================================
--- trunk/Catalyst-View-TT/Makefile.PL	2009-02-08 08:04:11 UTC (rev 9250)
+++ trunk/Catalyst-View-TT/Makefile.PL	2009-02-08 08:07:13 UTC (rev 9251)
@@ -14,6 +14,7 @@
 requires 'Class::Accessor' => 0;
 requires 'Template::Timer' => 0;
 requires 'Path::Class'     => 0;
+requires 'MRO::Compat'     => 0;
 
 test_requires 'Test::More';
 

Modified: trunk/Catalyst-View-TT/lib/Catalyst/View/TT.pm
===================================================================
--- trunk/Catalyst-View-TT/lib/Catalyst/View/TT.pm	2009-02-08 08:04:11 UTC (rev 9250)
+++ trunk/Catalyst-View-TT/lib/Catalyst/View/TT.pm	2009-02-08 08:07:13 UTC (rev 9251)
@@ -5,7 +5,7 @@
 use Data::Dump 'dump';
 use Template;
 use Template::Timer;
-use NEXT;
+use MRO::Compat;
 
 our $VERSION = '0.28';
 
@@ -119,7 +119,7 @@
         $c->log->debug( "TT Config: ", dump($config) );
     }
 
-    my $self = $class->NEXT::new(
+    my $self = $class->next::method(
         $c, { %$config }, 
     );
 
@@ -320,7 +320,7 @@
 The second way is to define a C<new()> method in your view subclass.
 This performs the configuration when the view object is created,
 shortly after being loaded.  Remember to delegate to the base class
-C<new()> method (via C<$self-E<gt>NEXT::new()> in the example below) after
+C<new()> method (via C<$self-E<gt>next::method()> in the example below) after
 performing any configuration.
 
     sub new {
@@ -333,7 +333,7 @@
             PRE_PROCESS  => 'config/main',
             WRAPPER      => 'site/wrapper',
         });
-        return $self->NEXT::new(@_);
+        return $self->next::method(@_);
     }
  
 The final, and perhaps most direct way, is to define a class
@@ -341,8 +341,8 @@
 uniquitous C<config()> method.  The items in the class hash are
 added to those already defined by the above two methods.  This happens
 in the base class new() method (which is one reason why you must
-remember to call it via C<NEXT> if you redefine the C<new()> method in a
-subclass).
+remember to call it via C<MRO::Compat> if you redefine the C<new()> 
+method in a subclass).
 
     package MyApp;