package Maypole;
use base qw(Class::Accessor::Fast Class::Data::Inheritable);
-use attributes ();
use UNIVERSAL::require;
use strict;
use warnings;
my $r = bless { config => $class->config }, $class;
$r->get_request($req);
$r->parse_location();
+ warn "Request path: $r->{path}" if $r->debug;
my $status = $r->handler_guts();
return $status unless $status == OK;
$r->send_output;