This is very close to being able to spit out pages now.

[maypole.git] / lib / Apache / MVC / Model / Base.pm

diff --git a/lib/Apache/MVC/Model/Base.pm b/lib/Apache/MVC/Model/Base.pm
new file mode 100644 (file)
index 0000000..911588b
--- /dev/null
+++ b/lib/Apache/MVC/Model/Base.pm
@@ -0,0 +1,19 @@
+package Apache::MVC::Model::Base;
+our %remember;
+sub MODIFY_CODE_ATTRIBUTES { 
+    $remember{$_[1]} = $_[2]; ()
+}
+
+sub FETCH_CODE_ATTRIBUTES { $remember{$_[1]} 
+} 
+
+sub view :Exported {
+    my ($self, $r) = @_;
+    return $self->retrieve(shift @{$r->{args}});
+}
+
+sub process {
+    my ($class, $r) = @_;
+    $r->template( my $method = $r->action );
+    $r->objects([ $class->$method($r) ]);
+}