#!/usr/bin/perl --
use strict; use warnings;
sub ddd { use Data::Dumper; print Data::Dumper->new([@_])->Useqq(1)->Dump, "\n"; }
use Dancer2;
get '/login:username:password' => sub { rand };
get '/signon/:username/:password' => sub { rand };
#~ ddd( app() );
ddd( app()->routes->{get} );
__END__
$VAR1 = [
          bless( {
                   "options" => {},
                   "_params" => [
                                "username:password"
                              ],
                   "spec_route" => "/login:username:password",
                   "regexp" => "^\\/login(?#token)([^\\/]+)\$",
                   "method" => "get",
                   "_should_capture" => 1,
                   "code" => sub { "DUMMY" },
                   "prefix" => undef
                 }, 'Dancer2::Core::Route' ),
          bless( {
                   "options" => {},
                   "_params" => [
                                "username",
                                "password"
                              ],
                   "spec_route" => "/signon/:username/:password",
                   "regexp" => "^\\/signon\\/(?#token)([^\\/]+)\\/(?#token)([^\\/]+)\$",
                   "method" => "get",
                   "_should_capture" => 1,
                   "code" => sub { "DUMMY" },
                   "prefix" => undef
                 }, 'Dancer2::Core::Route' )
        ];