From: Marcus Ramberg <mramberg@cpan.org>
Date: Tue, 14 Sep 2004 17:40:28 +0000 (+0000)
Subject: fixes parse_args function
X-Git-Tag: 2.10~188
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=c65a614ae26a095e67ec7c07edb001e80ee91232;hp=ab11625025348dd2f0b4324413463358f52aede3;p=maypole.git

fixes parse_args function
adds call_url to easen testing.


git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@174 48953598-375a-da11-a14b-00016c27c3ee
---

diff --git a/lib/Maypole/CLI.pm b/lib/Maypole/CLI.pm
index 9f65c7c..b08aab1 100644
--- a/lib/Maypole/CLI.pm
+++ b/lib/Maypole/CLI.pm
@@ -25,17 +25,22 @@ sub parse_location {
     $self->{path} = $url->path;
     $self->{path} =~ s/^$root//i if $root;
     $self->parse_path;
-    $self->parse_args;
+    $self->parse_args($url);
 }
 
 sub parse_args {
-    my $self = shift;
+    my ($self,$url) = @_;
     $self->{params} = $url->query_form_hash;
     $self->{query} = $url->query_form_hash;
 }
 
 sub send_output { $buffer = shift->{output} }
 
+sub call_url {
+	my $self =shift;
+	@ARGV=@_;
+    $package->handler() == OK and return $buffer; 
+}
 # Do it!
 CHECK { if ((caller(0))[1] eq "-e") { 
             $package->handler() == OK and print $buffer;