X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FModel%2FBase.pm;h=0d534a542559e0ec5448c29ffe805bb729317a05;hb=3f7deaafa3e8e5bf08c3b2b782abc4f12edcddf0;hp=ea1632a8cce0436c7d4c669604d788cc72bbea3b;hpb=7637da3c79552ce54e8b71b880af799ddfd64eca;p=maypole.git

diff --git a/lib/Maypole/Model/Base.pm b/lib/Maypole/Model/Base.pm
index ea1632a..0d534a5 100644
--- a/lib/Maypole/Model/Base.pm
+++ b/lib/Maypole/Model/Base.pm
@@ -17,10 +17,7 @@ sub process {
     $r->{template} = $method;
     $r->objects( [] );
     my $obj = $class->retrieve( $r->{args}->[0] );
-    if ($obj) {
-        $r->objects( [$obj] );
-        shift @{ $r->{args} };
-    }
+    $r->objects( [$obj] ) if $obj;
     $class->$method( $r, $obj, @{ $r->{args} } );
 }
 
@@ -107,7 +104,6 @@ errors. A hash of errors will be passed to the template.
 
 sub do_edit { die "This is an abstract method" }
 
-
 =item list
 
 The C<list> method should fill C<< $r-> objects >> with all of the
@@ -127,7 +123,6 @@ Empty Action.
 
 =cut
 
-
 sub list : Exported {
     die "This is an abstract method";
 }