From c65a614ae26a095e67ec7c07edb001e80ee91232 Mon Sep 17 00:00:00 2001 From: Marcus Ramberg Date: Tue, 14 Sep 2004 17:40:28 +0000 Subject: [PATCH 1/1] 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 --- lib/Maypole/CLI.pm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) 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; -- 2.39.2