view release on metacpan or  search on metacpan

t/lib/script/testapp_test.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/..";
use Catalyst::Test 'TestApp';

print request($ARGV[0])->content . "\n";

1;