Yet Another CPAN Grep

Plack-Middleware-FormatOutput ( V/VA/VASEKD/Plack-Middleware-FormatOutput-0.10.tar.gz, VASEKD, 2016; MetaCPAN )

Plack-Middleware-FormatOutput/lib/Plack/Middleware/FormatOutput.pm ( view source; MetaCPAN )

 => 'all';

use parent qw( Plack::Middleware );
use Plack::Util;

use HTTP::Exception '4XX';

use JSON::XS;
use YAML::Syck;
use URI::Escape::XS qw/decodeURIComponent/;
use Encode; 
our $VERSION = '0.1

1") ? return 1 : return 0;
}

### Set default mime types
my $MIME_TYPES = {
	'application/json'   => sub { JSON::XS->new->utf8->allow_nonref->encode($_[0]) },
	'text/yaml'          => sub { 
		local $

tml($data, $env, $header); #struct, env
			return Encode::encode_utf8($ret) if $ret;
		}
		return JSON::XS->new->utf8->allow_nonref->encode($data); # Just show content
	}
};

sub prepare_app {
	my $se