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