*** ../Catalyst-Plugin-Scheduler-0.08/lib/Catalyst/Plugin/Scheduler.pm	2008-01-12 15:50:03.000000000 +0000
--- ./lib/Catalyst/Plugin/Scheduler.pm	2009-04-28 14:44:12.000000000 +0100
***************
*** 7,17 ****
  use DateTime::Event::Cron;
  use DateTime::TimeZone;
  use File::stat;
- use NEXT;
  use Set::Scalar;
  use Storable qw/lock_store lock_retrieve/;
  
! our $VERSION = '0.08';
  
  __PACKAGE__->mk_classdata( '_events' => [] );
  __PACKAGE__->mk_accessors('_event_state');
--- 7,19 ----
  use DateTime::Event::Cron;
  use DateTime::TimeZone;
  use File::stat;
  use Set::Scalar;
  use Storable qw/lock_store lock_retrieve/;
  
! use MRO::Compat;
! Class::C3::initialize();
!     
! our $VERSION = '0.09';
  
  __PACKAGE__->mk_classdata( '_events' => [] );
  __PACKAGE__->mk_accessors('_event_state');
***************
*** 58,64 ****
  sub dispatch {
      my $c = shift;
  
!     $c->NEXT::dispatch(@_);
  
      $c->_get_event_state();
  
--- 60,66 ----
  sub dispatch {
      my $c = shift;
  
!     $c->maybe::next::method();
  
      $c->_get_event_state();
  
***************
*** 172,189 ****
              );
      }
  
!     $c->NEXT::setup(@_);
  }
  
  sub dump_these {
      my $c = shift;
      
!     return ( $c->NEXT::dump_these(@_) ) unless @{ $c->_events };
!     
      # for debugging, we dump out a list of all events with their next
      # scheduled run time
      return ( 
!         $c->NEXT::dump_these(@_),
          [ 'Scheduled Events', $c->scheduler_state ],
      );
  }
--- 174,191 ----
              );
      }
  
!     $c->maybe::next::method(@_);
  }
  
  sub dump_these {
      my $c = shift;
      
!     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->maybe::next::method(@_),
          [ 'Scheduled Events', $c->scheduler_state ],
      );
  }
***************
*** 680,687 ****
  Events should be registered from a plugin's C<setup> method.
  
      sub setup {
!         my $c = shift;
!         $c->NEXT::setup(@_);
          
          if ( $c->can('schedule') ) {
              $c->schedule(
--- 682,689 ----
  Events should be registered from a plugin's C<setup> method.
  
      sub setup {
!         my $c = shift;        
!         $c->maybe::next::method(@_);
          
          if ( $c->can('schedule') ) {
              $c->schedule(