Added parse_args to Maypole::CLI and CGI::Maypole

[maypole.git] / lib / Maypole / CLI.pm

diff --git a/lib/Maypole/CLI.pm b/lib/Maypole/CLI.pm
index b2c6e911d545885147fff1e872ad3f1837482d21..9f65c7c0b747c66c3e8612b2dd0b2011ee2fd93a 100644 (file)
--- a/lib/Maypole/CLI.pm
+++ b/lib/Maypole/CLI.pm
@@ -25,6 +25,12 @@ sub parse_location {
     $self->{path} = $url->path;
     $self->{path} =~ s/^$root//i if $root;
     $self->parse_path;
+    $self->parse_args;
+}
+
+sub parse_args {
+    my $self = shift;
+    $self->{params} = $url->query_form_hash;
     $self->{query} = $url->query_form_hash;
 }