use Dancer2; use Dancer::Exception; use Plack::Builder; our $VERSION = '0.1'; # Enable JSON Serializer set serializer => 'JSON' get '/login:username:password' => sub { request->params; my %user = (); my $username = params->{username}; my $password = params->{password}; %user = ( user => { Name => $username, Pass => $password } ); return \%user; };