X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FCLI.pm;h=9f65c7c0b747c66c3e8612b2dd0b2011ee2fd93a;hb=848b997e719a53b09936a570527c0f3b9366709b;hp=b2c6e911d545885147fff1e872ad3f1837482d21;hpb=5c199c0e9cd05a00bfc04d9688982979a41f3ee8;p=maypole.git diff --git a/lib/Maypole/CLI.pm b/lib/Maypole/CLI.pm index b2c6e91..9f65c7c 100644 --- 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; }