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

diff --git a/lib/Apache/MVC/Model/Base.pm b/lib/Apache/MVC/Model/Base.pm
index 1fe178f..89feb7c 100644
--- a/lib/Apache/MVC/Model/Base.pm
+++ b/lib/Apache/MVC/Model/Base.pm
@@ -12,6 +12,13 @@ sub view :Exported {
     return $self->retrieve(shift @{$r->{args}});
 }
 
+sub edit :Exported {
+    my ($self, $r) = @_;
+    return $self->retrieve(shift @{$r->{args}});
+}
+
+sub do_edit { die "This is an abstract method" }
+
 sub list :Exported {
     my ($self, $r) = @_;
     return $self->retrieve_all;