$self->{path} = $url->path;
$self->{path} =~ s/^$root//i if $root;
$self->parse_path;
+ $self->parse_args($url);
+}
+
+sub parse_args {
+ 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;