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 |
# Check if Mojo is installed |
23 |
eval 'use Mojolicious::Scripts'; |
24 |
if ($@) { |
25 |
print <<EOF; |
26 |
It looks like you don't have the Mojo Framework installed. |
27 |
Please visit http://getmojo.kraih.com for detailed installation instructions |
28 |
or try to run Fray with one of other supported servers. |
29 |
|
30 |
EOF |
31 |
exit; |
32 |
} |
33 |
|
34 |
# Start the script system |
35 |
my $scripts = Mojolicious::Scripts->new; |
36 |
$scripts->run(@ARGV || 'daemon'); |