[Catalyst-commits] r7622 - CatalystX-CRUD/CatalystX-CRUD-Controller-RHTMLO/trunk/lib/CatalystX/CRUD/Controller

[karpet at dev.catalyst.perl.org]

Author: karpet
Date: 2008-04-21 17:01:08 +0100 (Mon, 21 Apr 2008)
New Revision: 7622

Modified:
   CatalystX-CRUD/CatalystX-CRUD-Controller-RHTMLO/trunk/lib/CatalystX/CRUD/Controller/RHTMLO.pm
Log:
switch to Class::C3

Modified: CatalystX-CRUD/CatalystX-CRUD-Controller-RHTMLO/trunk/lib/CatalystX/CRUD/Controller/RHTMLO.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD-Controller-RHTMLO/trunk/lib/CatalystX/CRUD/Controller/RHTMLO.pm	2008-04-21 16:01:00 UTC (rev 7621)
+++ CatalystX-CRUD/CatalystX-CRUD-Controller-RHTMLO/trunk/lib/CatalystX/CRUD/Controller/RHTMLO.pm	2008-04-21 16:01:08 UTC (rev 7622)
@@ -1,8 +1,8 @@
 package CatalystX::CRUD::Controller::RHTMLO;
 use strict;
 use base qw( CatalystX::CRUD::Controller );
-use NEXT;
 use Carp;
+use Class::C3;
 
 our $VERSION = '0.11';
 
@@ -70,7 +70,6 @@
         $self->{_form}->clear unless $c->stash->{_form_called}++;
         $self->{_form}->app($c);
     }
-    $self->NEXT::form($c);
     return $self->{_form};
 }
 
@@ -183,7 +182,7 @@
     $c->stash->{form}->params( $c->req->params );
     $c->stash->{form}->init_fields();
 
-    return $self->NEXT::do_search( $c, scalar $c->stash->{form}->field_names,
+    return $self->next::method( $c, scalar $c->stash->{form}->field_names,
         @arg );
 }