lib/Apache/MVC/Model/Base.pm

   1 package Apache::MVC::Model::Base;
   2 our %remember;
   3 sub MODIFY_CODE_ATTRIBUTES {
   4     $remember{$_[1]} = $_[2]; ()
   5 }
   6
   7 sub FETCH_CODE_ATTRIBUTES { $remember{$_[1]}
   8 }
   9
  10 sub view :Exported {
  11     my ($self, $r) = @_;
  12     return $self->retrieve(shift @{$r->{args}});
  13 }
  14
  15 sub list :Exported {
  16     my ($self, $r) = @_;
  17     return $self->retrieve_all;
  18 }
  19
  20 sub process {
  21     my ($class, $r) = @_;
  22     $r->template( my $method = $r->action );
  23     $r->objects([ $class->$method($r) ]);
  24 }