view release on metacpan or  search on metacpan

t/safe-params.t  view on Meta::CPAN

use lib '.';
use t::Helper;

my $t = t::Helper->t;
$t->get_ok("/?edit=../../Makefile.PL")->status_is(404)->content_unlike(qr{use ExtUtils::MakeMaker;});

done_testing;