1#!/usr/bin/env perl 2use Dancer ':syntax'; 3use FindBin '$RealBin'; 4use Plack::Runner; 5 6# For some reason Apache SetEnv directives dont propagate 7# correctly to the dispatchers, so forcing PSGI and env here 8# is safer. 9set apphandler => 'PSGI'; 10set environment => 'production'; 11 12my $psgi = path($RealBin, '..', 'bin', 'app.pl'); 13die "Unable to read startup script: $psgi" unless -r $psgi; 14 15Plack::Runner->run($psgi); 16