$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} } );
}
sub do_edit { die "This is an abstract method" }
-
=item list
The C<list> method should fill C<< $r-> objects >> with all of the
=cut
-
sub list : Exported {
die "This is an abstract method";
}