view release on metacpan or  search on metacpan

t/lib/TestAS2.pm  view on Meta::CPAN

use Plack::Test;

my $dir = dirname(dirname(abs_path(__FILE__)));

sub start {
    my ($server, $type) = @_;

    $Plack::Test::Impl = $type if $type;

    my $app = require "$dir/$server/$server.psgi";

    my $psgi = Plack::Test->create($app);

    return $psgi;
}

sub slurp_file {
    my $file = shift;

    local $/ = undef;