The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

use Dancer;
setting serializer => 'JSON';
get '/json' => sub {
to_json({foo => 'bar'}, pretty => 1);
};
get '/' => sub {
{ foo => 1 }
};
get '/blessed' => sub {
require HTTP::Headers;
my $r = HTTP::Request->new(GET => 'http://localhost');
{request => $r};
};
post '/' => sub {
request->params;
};
get '/error' => sub {
send_error({foo => 42}, 401);
};
get '/error_bis' => sub {
send_error(42, 402);
};
1;