args action template ));
__PACKAGE__->config({});
__PACKAGE__->init_done(0);
-
-# Ape Apache::Constants interface
-use constant OK => 0;
-use constant DECLINED => -1;
+use Maypole::Constants;
sub debug { 0 }
my $r = bless { config => $class->config }, $class;
$r->get_request();
$r->parse_location();
+ my $status = $r->handler_guts();
+ if ($status != OK) {
+ warn "NOT OK!";
+ return $status;
+ }
+ $r->send_output;
+ return $status;
+}
+sub handler_guts {
+ my $r = shift;
$r->model_class($r->config->{model}->class_of($r, $r->{table}));
my $status = $r->is_applicable;
if ($status == OK) {
$r->{path} =~ s{/}{}; # De-absolutify
$r->template($r->{path});
}
- $status = OK;
if (!$r->{output}) { # You might want to do it yourself
- $status = $r->view_object->process($r);
- }
- $r->send_output;
- return $status;
+ return $r->view_object->process($r);
+ } else { return OK; }
}
sub is_applicable {