e HTTP::Exception '4XX';
use JSON::XS;
use YAML::Syck;
my $Mime_types;
$YAML::Syck::ImplicitUnicode = 1;
$Mime_types = {
'application/json' => sub { &decode_json($_[1]) },
'text/yaml'
e::FormatOutput
=back
=head1 CONSTANTS
=head2 DEFAULT MIME TYPES
=over 4
=item * application/json
=item * text/yaml
=item * text/plain
=item * application/x-www-form-urlencoded
As default t