zimbardo/bin/server-mojo.pl

#!/usr/bin/perl

use strict;
use warnings;

# debug enviroment vars
$ENV{MOJO_TEMPLATE_DEBUG} = 1;
$ENV{MOJO_LOADER_DEBUG} = 1;
#$ENV{MOJO_BASE_DEBUG} = 1;
$ENV{MOJO_SERVER_DEBUG} = 1;
$ENV{MOJOX_ROUTES_DEBUG} = 1;
$ENV{MOJO_RELOAD} = 1;

use FindBin;

use lib "$FindBin::Bin/lib";
use lib "$FindBin::Bin/../lib";
use lib "$FindBin::Bin/../../lib";

$ENV{MOJO_APP} = 'Frey::Mojo';

use Frey::Bootstrap;

# Check if Mojo is installed
eval 'use Mojolicious::Scripts';
if ($@) {
    print <<EOF;
It looks like you don't have the Mojo Framework installed.
Please visit http://getmojo.kraih.com for detailed installation instructions
or try to run Fray with one of other supported servers.

EOF
    exit;
}

# Start the script system
my $scripts = Mojo::Scripts->new;
$scripts->run(@ARGV || 'daemon');
1	#!/usr/bin/perl
2
3	use strict;
4	use warnings;
5
6	# debug enviroment vars
7	$ENV{MOJO_TEMPLATE_DEBUG} = 1;
8	$ENV{MOJO_LOADER_DEBUG} = 1;
9	#$ENV{MOJO_BASE_DEBUG} = 1;
10	$ENV{MOJO_SERVER_DEBUG} = 1;
11	$ENV{MOJOX_ROUTES_DEBUG} = 1;
12	$ENV{MOJO_RELOAD} = 1;
13
14	use FindBin;
15
16	use lib "$FindBin::Bin/lib";
17	use lib "$FindBin::Bin/../lib";
18	use lib "$FindBin::Bin/../../lib";
19
20	$ENV{MOJO_APP} = 'Frey::Mojo';
21
22	use Frey::Bootstrap;
23
24	# Check if Mojo is installed
25	eval 'use Mojolicious::Scripts';
26	if ($@) {
27	print <<EOF;
28	It looks like you don't have the Mojo Framework installed.
29	Please visit http://getmojo.kraih.com for detailed installation instructions
30	or try to run Fray with one of other supported servers.
31
32	EOF
33	exit;
34	}
35
36	# Start the script system
37	my $scripts = Mojo::Scripts->new;
38	$scripts->run(@ARGV \|\| 'daemon');