sub handler {
# See Maypole::Workflow before trying to understand this.
sub handler {
# See Maypole::Workflow before trying to understand this.
+ my ( $class, $req ) = @_;
$class->init unless $class->init_done;
my $r = bless { config => $class->config }, $class;
$class->init unless $class->init_done;
my $r = bless { config => $class->config }, $class;
$r->parse_location();
my $status = $r->handler_guts();
return $status unless $status == OK;
$r->parse_location();
my $status = $r->handler_guts();
return $status unless $status == OK;