sub parse_location {
my $self = shift;
my $url = URI->new( shift @ARGV );
+
+ $self->preprocess_location();
+
(my $uri_base = $self->config->uri_base) =~ s:/$::;
my $root = URI->new( $uri_base )->path;
$self->{path} = $url->path;
=item send_output
+=item warn
+
=back
=cut