1 |
dpavlin |
267 |
#!/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); |