X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FApache%2FMVC%2FModel%2FBase.pm;h=908a2fca294a926e2f412c5daee3d2345479c9d7;hb=5cccc5a89004f9c514e9d611b5e2a02e9aa28ece;hp=b7337be7e2996808434cb9bacc3c364983275bf2;hpb=727e28be9837a49a27e024e5ee68c33da59039e0;p=maypole.git

diff --git a/lib/Apache/MVC/Model/Base.pm b/lib/Apache/MVC/Model/Base.pm
index b7337be..908a2fc 100644
--- a/lib/Apache/MVC/Model/Base.pm
+++ b/lib/Apache/MVC/Model/Base.pm
@@ -6,11 +6,6 @@ sub FETCH_CODE_ATTRIBUTES { $remember{$_[1]} }
 sub view :Exported { }
 sub edit :Exported { }
 
-sub list :Exported {
-    my ($self, $r) = @_;
-    $r->objects([ $self->retrieve_all ]);
-}
-
 sub process {
     my ($class, $r) = @_;
     $r->template( my $method = $r->action );
@@ -64,7 +59,23 @@ This is the name of the table.
 
 =head2 Commands
 
-See the exported commands in C<Apache::MVC::Model::CDBI>.
+=over
+
+=item list
+
+The C<list> method should fill C<< $r-> objects >> with all of the
+objects in the class. You may want to page this using C<Data::Page> or
+similar.
+
+=back
+
+=cut
+
+sub list :Exported { die "This is an abstract method" };
+
+=pod
+
+Also, see the exported commands in C<Apache::MVC::Model::CDBI>.
 
 =head1 Other overrides