[Catalyst-commits] r8804 -
CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD
karpet at dev.catalyst.perl.org
karpet at dev.catalyst.perl.org
Tue Dec 9 20:26:04 GMT 2008
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};
}
More information about the Catalyst-commits
mailing list