[Catalyst-commits] r10035 - in trunk/Catalyst-Plugin-Scheduler: . lib/Catalyst/Plugin t/lib/Catalyst/Plugin

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-05-07 12:28:41 +0000 (Thu, 07 May 2009)
New Revision: 10035

Modified:
   trunk/Catalyst-Plugin-Scheduler/Build.PL
   trunk/Catalyst-Plugin-Scheduler/Changes
   trunk/Catalyst-Plugin-Scheduler/lib/Catalyst/Plugin/Scheduler.pm
   trunk/Catalyst-Plugin-Scheduler/t/lib/Catalyst/Plugin/PluginTest.pm
Log:
Apply patch to NEXT => MRO::Compat from the mailing list.


Modified: trunk/Catalyst-Plugin-Scheduler/Build.PL
===================================================================
--- trunk/Catalyst-Plugin-Scheduler/Build.PL	2009-05-07 10:58:43 UTC (rev 10034)
+++ trunk/Catalyst-Plugin-Scheduler/Build.PL	2009-05-07 12:28:41 UTC (rev 10035)
@@ -11,6 +11,7 @@
         'Set::Scalar'           => 0,
         'Storable'              => 0,
         'YAML'                  => 0,
+        'MRO::Compat'           => 0,
     },
     create_makefile_pl => 'passthrough',
     test_files   => [

Modified: trunk/Catalyst-Plugin-Scheduler/Changes
===================================================================
--- trunk/Catalyst-Plugin-Scheduler/Changes	2009-05-07 10:58:43 UTC (rev 10034)
+++ trunk/Catalyst-Plugin-Scheduler/Changes	2009-05-07 12:28:41 UTC (rev 10035)
@@ -1,5 +1,7 @@
 Revision history for Perl extension Catalyst::Plugin::Scheduler
 
+        - Change from NEXT to MRO::Compat. (agladdish)
+
 0.08    2008-01-12 11:00:00
         - Clear existing state file during startup. (hovenko)
 

Modified: trunk/Catalyst-Plugin-Scheduler/lib/Catalyst/Plugin/Scheduler.pm
===================================================================
--- trunk/Catalyst-Plugin-Scheduler/lib/Catalyst/Plugin/Scheduler.pm	2009-05-07 10:58:43 UTC (rev 10034)
+++ trunk/Catalyst-Plugin-Scheduler/lib/Catalyst/Plugin/Scheduler.pm	2009-05-07 12:28:41 UTC (rev 10035)
@@ -7,9 +7,9 @@
 use DateTime::Event::Cron;
 use DateTime::TimeZone;
 use File::stat;
-use NEXT;
 use Set::Scalar;
 use Storable qw/lock_store lock_retrieve/;
+use MRO::Compat;
 
 our $VERSION = '0.08';
 
@@ -58,7 +58,7 @@
 sub dispatch {
     my $c = shift;
 
-    $c->NEXT::dispatch(@_);
+    $c->maybe::next::method();
 
     $c->_get_event_state();
 
@@ -172,18 +172,18 @@
             );
     }
 
-    $c->NEXT::setup(@_);
+    $c->maybe::next::method(@_);
 }
 
 sub dump_these {
     my $c = shift;
     
-    return ( $c->NEXT::dump_these(@_) ) unless @{ $c->_events };
-    
+    return ( $c->maybe::next::method(@_) ) unless @{ $c->_events };
+        
     # for debugging, we dump out a list of all events with their next
     # scheduled run time
     return ( 
-        $c->NEXT::dump_these(@_),
+        $c->maybe::next::method(@_),
         [ 'Scheduled Events', $c->scheduler_state ],
     );
 }
@@ -680,8 +680,8 @@
 Events should be registered from a plugin's C<setup> method.
 
     sub setup {
-        my $c = shift;
-        $c->NEXT::setup(@_);
+        my $c = shift;        
+        $c->maybe::next::method(@_);
         
         if ( $c->can('schedule') ) {
             $c->schedule(

Modified: trunk/Catalyst-Plugin-Scheduler/t/lib/Catalyst/Plugin/PluginTest.pm
===================================================================
--- trunk/Catalyst-Plugin-Scheduler/t/lib/Catalyst/Plugin/PluginTest.pm	2009-05-07 10:58:43 UTC (rev 10034)
+++ trunk/Catalyst-Plugin-Scheduler/t/lib/Catalyst/Plugin/PluginTest.pm	2009-05-07 12:28:41 UTC (rev 10035)
@@ -2,11 +2,13 @@
 
 use strict;
 use warnings;
-use NEXT;
 
+use MRO::Compat;
+Class::C3::initialize();
+
 sub setup {
     my $c = shift;
-    $c->NEXT::setup(@_);
+    $c->maybe::next::method(@_);
     
     if ( $c->can('schedule') ) {
         $c->schedule(