package
t::lib::TestSerializer;
use
Dancer;
setting
serializer
=>
'JSON'
;
get
'/json'
=>
sub
{
to_json({
foo
=>
'bar'
},
pretty
=> 1);
};
get
'/'
=>
sub
{
{
foo
=> 1 }
};
get
'/blessed'
=>
sub
{
{
request
=>
$r
};
};
post
'/'
=>
sub
{
request->params;
};
get
'/error'
=>
sub
{
send_error({
foo
=> 42}, 401);
};
get
'/error_bis'
=>
sub
{
send_error(42, 402);
};
1;