1 |
#!/usr/bin/perl |
2 |
|
3 |
# Copyright (C) 2008, Sebastian Riedel. |
4 |
|
5 |
use strict; |
6 |
use warnings; |
7 |
|
8 |
use FindBin; |
9 |
|
10 |
use lib "$FindBin::Bin/lib"; |
11 |
use lib "$FindBin::Bin/../lib"; |
12 |
use lib "$FindBin::Bin/../../lib"; |
13 |
|
14 |
$ENV{MOJO_APP} = 'Frey::Mojo'; |
15 |
|
16 |
# Check if Mojo is installed |
17 |
eval 'use Mojolicious::Scripts'; |
18 |
if ($@) { |
19 |
print <<EOF; |
20 |
It looks like you don't have the Mojo Framework installed. |
21 |
Please visit http://getmojo.kraih.com for detailed installation instructions. |
22 |
|
23 |
EOF |
24 |
exit; |
25 |
} |
26 |
|
27 |
# Start the script system |
28 |
my $scripts = Mojolicious::Scripts->new; |
29 |
$scripts->run(@ARGV); |