Contents of /wm/bin/mojolicious

#!/usr/bin/perl

# Copyright (C) 2008, Sebastian Riedel.

use strict;
use warnings;

use FindBin;

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

$ENV{MOJO_APP} = 'WM';

# 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.

EOF
    exit;
}

# Start the script system
my $scripts = Mojolicious::Scripts->new;
$scripts->run(@ARGV);
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} = 'WM';
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);