From: Marcus Ramberg 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;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;