#!/usr/bin/perl -- use strict; use warnings; use Dancer2; sub con_serv { my( $type, $ref ) = @_; content_type('text/x-json'); require JSON::MaybeXS; return JSON::MaybeXS::encode_json($ref); } get '/always/json' => sub { con_serv( 'json', { get => '/always/json' } ); }; get '/:type' => sub { con_serv( request->params->{type} , { get => '/:type' } ); }; get '/' => sub { '

/
/always/json
/json
'                    };
dance;

__END__