Added workaround for Dancer Issue 909 (splat pollution)

It's not possible to allow arbitrary paramers if `params()` is used,
since in cases of route matching, this hash will always contain
key `splat`.

https://github.com/PerlDancer/Dancer/issues/909

Using `request->params('query')` leads to clean params reflecting query
in URL.

lib/SugarTrail.pm

@@ -17,11 +17,12 @@ my $r = SugarTrail::Repo->new(
 
 get qr|^/st/([^\?]*)(.*)$| => sub {
 
-    my $p = params();
+    my $params = request->params('query');
 
     &helper::dmup (ENV => \%ENV);
     &helper::dmup (params => scalar params);
     &helper::dmup (config => config);
+    &helper::dmup (real_params => $params);
 
     my ($stpath, $query) = splat;
     my $format = params->{__format} // 'plain';
@@ -31,7 +32,7 @@ get qr|^/st/([^\?]*)(.*)$| => sub {
 
     my $m = $r->load_master( source => "/$stpath.stm" )
         or return template 'not_found';
-    my $s = $m->generate_slave(scalar params);
+    my $s = $m->generate_slave($params);
 
     template 'st', {
         st_headers =>   $s->head(),