X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FComponents.pm;h=48c54c7be7290cf7ae8130fd26af5500ade510da;hb=5a2a936da63a8463429f3cd486104d5410e73c04;hp=b679e8db4c4f1109cc40146b29f16b9ceefb2c17;hpb=f19715f56244cc6d862169c2dd656b8a2f3845b5;p=maypole.git

diff --git a/lib/Maypole/Components.pm b/lib/Maypole/Components.pm
index b679e8d..48c54c7 100644
--- a/lib/Maypole/Components.pm
+++ b/lib/Maypole/Components.pm
@@ -6,12 +6,13 @@ use URI;
 use URI::QueryParam;
 
 sub new {
-    my ($class,$r, $path) = @_;
+    my ($class,$r) = @_;
     my $self = bless { config => $r->config, parent => $r }, $class;
 }
 
 sub handler {
     my $self = shift;
+    my $path = shift;
     my $url = URI->new($path);
     $self->{path} = $url->path;
     $self->parse_path;