X-Git-Url: https://git.decadent.org.uk/gitweb/?p=maypole.git;a=blobdiff_plain;f=lib%2FApache%2FMVC%2FModel%2FBase.pm;h=1fe178f746f18281d0b8dbb2c8dac154aa83d348;hp=911588bde9f14f1fe4c62fe34bbe52e2d183f9da;hb=58398cbb7b75bf3106e8503b81ee782178c248c3;hpb=bc6b985ccc8ac4bb7e5afa36dcfb1df9e5e47904

diff --git a/lib/Apache/MVC/Model/Base.pm b/lib/Apache/MVC/Model/Base.pm
index 911588b..1fe178f 100644
--- a/lib/Apache/MVC/Model/Base.pm
+++ b/lib/Apache/MVC/Model/Base.pm
@@ -12,6 +12,11 @@ sub view :Exported {
     return $self->retrieve(shift @{$r->{args}});
 }
 
+sub list :Exported {
+    my ($self, $r) = @_;
+    return $self->retrieve_all;
+}
+
 sub process {
     my ($class, $r) = @_;
     $r->template( my $method = $r->action );