X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FCLI.pm;h=9f65c7c0b747c66c3e8612b2dd0b2011ee2fd93a;hb=848b997e719a53b09936a570527c0f3b9366709b;hp=5524c7268d49c5eea1e28ad7d5b42db4f21c9b83;hpb=0ac4811fdd89ce1736ddc797b13527f482298130;p=maypole.git

diff --git a/lib/Maypole/CLI.pm b/lib/Maypole/CLI.pm
index 5524c72..9f65c7c 100644
--- a/lib/Maypole/CLI.pm
+++ b/lib/Maypole/CLI.pm
@@ -1,6 +1,7 @@
 package Maypole::CLI;
 use UNIVERSAL::require;
 use URI; use URI::QueryParam;
+use Maypole::Constants;
 
 use strict;
 use warnings;
@@ -24,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;
 }