1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
#!/usr/bin/env perl
# Copyright (C) 2008-2010, Sebastian Riedel.
use strict;
use warnings;
use Cwd 'getcwd';
use File::Spec;
use FindBin;
# Dist
use lib "$FindBin::Bin/lib";
use lib "$FindBin::Bin/../lib";
# App
use lib join '/', File::Spec->splitdir(getcwd), 'lib';
# Check if Mojo is installed
eval 'use Mojo::Commands';
die <<EOF if $@;
It looks like you don't have the Mojo Framework installed.
Please visit http://mojolicious.org for detailed installation instructions.
EOF
# Start the command system
Mojo::Commands->start;
__END__
=head1 NAME
mojo - The Mojo Command System
=head1 SEE ALSO
L<Mojolicious>, L<Mojolicious::Guides>, L<http://mojolicious.org>.
=cut
|
