return $self->retrieve(shift @{$r->{args}});
}
+sub edit :Exported {
+ my ($self, $r) = @_;
+ return $self->retrieve(shift @{$r->{args}});
+}
+
+sub do_edit { die "This is an abstract method" }
+
+sub list :Exported {
+ my ($self, $r) = @_;
+ return $self->retrieve_all;
+}
+
sub process {
my ($class, $r) = @_;
$r->template( my $method = $r->action );