fixed Catalyst::Script::Server so app doesn't have to be a cmd line opt
[catagits/Catalyst-Runtime.git] / t / TestApp / script / testapp_server.pl
1 #!/usr/bin/env perl
2
3 use FindBin qw/$Bin/;
4 BEGIN { 
5     $ENV{CATALYST_ENGINE} ||= 'HTTP';
6     $ENV{CATALYST_SCRIPT_GEN} = 31;
7     require Catalyst::Engine::HTTP;
8
9
10 ## because this is a test
11 use lib "$Bin/../../../lib";
12 use Catalyst::ScriptRunner;
13 Catalyst::ScriptRunner->run('TestApp','Server');