my $component = Maypole::Components->new(@_);
my $component = Maypole::Components->new(@_);
- return $component->handler;
+ return $component->handler($path);
use URI::QueryParam;
sub new {
use URI::QueryParam;
sub new {
- my ($class,$r, $path) = @_;
my $self = bless { config => $r->config, parent => $r }, $class;
}
sub handler {
my $self = shift;
my $self = bless { config => $r->config, parent => $r }, $class;
}
sub handler {
my $self = shift;
my $url = URI->new($path);
$self->{path} = $url->path;
$self->parse_path;
my $url = URI->new($path);
$self->{path} = $url->path;
$self->parse_path;