Yet Another CPAN Grep

TT2-Play-Area ( N/NE/NEWELLC/TT2-Play-Area-0.002.tar.gz, NEWELLC, 2018; MetaCPAN )

TT2-Play-Area/lib/TT2/Play/Area.pm ( view source; MetaCPAN )

imple site to allow playing with TT2 syntax and built in plugins.


use strictures 2;
use Cpanel::JSON::XS;
use Dancer2;
use File::ShareDir 'module_dir';
use Path::Tiny;
use Template;
use Template::Al

= query_parameters->get_all('engine');
    eval { $vars = decode_json( body_parameters->{vars} ); };
    if ($@) {
        send_as JSON =>
          { result => { 'Error' => 'Failed to parse variables

> 'html' } );
        }
        $engine_output{ $engines{$engine} } = $output;
    }

    send_as JSON => { result => \%engine_output, };
};

get '/example/:name' => sub {
    my $name = route_paramet