view release on metacpan or  search on metacpan

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

            or die "can't create $script: $!";
        print $fh <<"END_CODE";
#!/usr/bin/env perl

use Catalyst::ScriptRunner;
Catalyst::ScriptRunner->run('TestApp', '$command');

1;
END_CODE
        close $fh;
        chmod 0755, $script;
    }

    open my $fh, '>:raw', "$testapp/cpanfile";
    close $fh;

    File::Copy::Recursive::dircopy( "$root/t/lib", "$testapp/lib" );

    return $testapp;
}