[Catalyst-commits] r9613 - in trunk/Catalyst-View-Mason: . lib/Catalyst/View t/lib/TestApp

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-03-29 20:24:57 +0100 (Sun, 29 Mar 2009)
New Revision: 9613

Modified:
   trunk/Catalyst-View-Mason/Makefile.PL
   trunk/Catalyst-View-Mason/README
   trunk/Catalyst-View-Mason/lib/Catalyst/View/Mason.pm
   trunk/Catalyst-View-Mason/t/lib/TestApp/FakeLog.pm
Log:
Switch from NEXT to MRO::Compat.

Courtesy of Justin Hunter.

Modified: trunk/Catalyst-View-Mason/Makefile.PL
===================================================================
--- trunk/Catalyst-View-Mason/Makefile.PL	2009-03-29 19:03:57 UTC (rev 9612)
+++ trunk/Catalyst-View-Mason/Makefile.PL	2009-03-29 19:24:57 UTC (rev 9613)
@@ -12,6 +12,7 @@
 requires 'Scalar::Util' => 0;
 requires 'File::Spec'   => 0;
 requires 'parent'       => 0;
+requires 'MRO::Compat'  => 0;
 
 auto_provides;
 extra_tests;

Modified: trunk/Catalyst-View-Mason/README
===================================================================
--- trunk/Catalyst-View-Mason/README	2009-03-29 19:03:57 UTC (rev 9612)
+++ trunk/Catalyst-View-Mason/README	2009-03-29 19:24:57 UTC (rev 9613)
@@ -122,6 +122,7 @@
     Sebastian Riedel "sri at cpan.org"
     Marcus Ramberg
     Florian Ragwitz "rafl at debian.org"
+    Justin Hunter "justin.d.hunter at gmail.com"
 
 COPYRIGHT
     This program is free software, you can redistribute it and/or modify it

Modified: trunk/Catalyst-View-Mason/lib/Catalyst/View/Mason.pm
===================================================================
--- trunk/Catalyst-View-Mason/lib/Catalyst/View/Mason.pm	2009-03-29 19:03:57 UTC (rev 9612)
+++ trunk/Catalyst-View-Mason/lib/Catalyst/View/Mason.pm	2009-03-29 19:24:57 UTC (rev 9613)
@@ -6,9 +6,9 @@
 use Scalar::Util qw/blessed/;
 use File::Spec;
 use HTML::Mason;
-use NEXT;
+use MRO::Compat;
 
-our $VERSION = '0.16';
+our $VERSION = '0.17';
 
 __PACKAGE__->mk_accessors('template');
 
@@ -94,7 +94,7 @@
         if blessed($config{comp_root}) || ref $config{comp_root} ne 'ARRAY';
 
     unshift @{ $config{allow_globals} }, qw/$c $base $name/;
-    $self = $self->NEXT::new($app, \%config);
+    $self = $self->next::method($app, \%config);
     $self->{output} = q//;
 
     $self->config({ %config });
@@ -319,6 +319,8 @@
 
 =item Florian Ragwitz C<rafl at debian.org>
 
+=item Justin Hunter C<justin.d.hunter at gmail.com>
+
 =back
 
 =head1 COPYRIGHT

Modified: trunk/Catalyst-View-Mason/t/lib/TestApp/FakeLog.pm
===================================================================
--- trunk/Catalyst-View-Mason/t/lib/TestApp/FakeLog.pm	2009-03-29 19:03:57 UTC (rev 9612)
+++ trunk/Catalyst-View-Mason/t/lib/TestApp/FakeLog.pm	2009-03-29 19:24:57 UTC (rev 9613)
@@ -2,13 +2,13 @@
 
 use strict;
 use warnings;
-use NEXT;
+use MRO::Compat;
 use base qw/Catalyst::Log/;
 
 sub new {
     my ($self, $warnings_ref, @args) = @_;
 
-    $self = $self->NEXT::new(@args);
+    $self = $self->next::method(@args);
     $self->{_warnings_ref} = $warnings_ref;
 
     return $self;