1 package Apache::MVC::Model::Base;
3 sub MODIFY_CODE_ATTRIBUTES {
4 $remember{$_[1]} = $_[2]; ()
7 sub FETCH_CODE_ATTRIBUTES { $remember{$_[1]}
10 sub view :Exported { }
11 sub edit :Exported { }
13 sub do_edit { die "This is an abstract method" }
14 sub get_objects { die "This is an abstract method" }
18 $r->objects([ $self->retrieve_all ]);
23 $r->template( my $method = $r->action );
24 $r->objects([ $class->get_objects($r) ]);