[Catalyst-commits] r8804 - CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD

[karpet at dev.catalyst.perl.org]

Author: karpet
Date: 2008-12-09 20:26:03 +0000 (Tue, 09 Dec 2008)
New Revision: 8804

Modified:
   CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Controller.pm
Log:
use maybe::next::method shortcut

Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Controller.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Controller.pm	2008-12-09 18:21:35 UTC (rev 8803)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Controller.pm	2008-12-09 20:26:03 UTC (rev 8804)
@@ -107,7 +107,7 @@
 sub auto : Private {
     my ( $self, $c, @args ) = @_;
     $c->stash->{form} = $self->form($c);
-    $self->next::method( $c, @args ) if $self->next::can;
+    $self->maybe::next::method( $c, @args );
     1;
 }
 
@@ -716,7 +716,7 @@
     elsif ( $self->{_form}->can('reset') ) {
         $self->{_form}->reset;
     }
-    $self->next::method($c) if $self->next::can;
+    $self->maybe::next::method($c);
     return $self->{_form};
 }