added a couple of requisites to the makefile

[maypole.git] / lib / Maypole / Components.pm

diff --git a/lib/Maypole/Components.pm b/lib/Maypole/Components.pm
index b679e8db4c4f1109cc40146b29f16b9ceefb2c17..31d6ac277e1e41fcd204ba56dbd003993a222624 100644 (file)
--- a/lib/Maypole/Components.pm
+++ b/lib/Maypole/Components.pm
@@ -1,17 +1,19 @@
 package Maypole::Components;
-use base 'Maypole';
 use strict;
 use warnings;
 use URI; 
 use URI::QueryParam;
 
+our @ISA = qw(Maypole);
+
 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;