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
|
#!/usr/bin/env perl
use strict;
use warnings;
use File::Basename 'dirname';
use File::Spec::Functions qw(catdir splitdir);
# Source directory has precedence
my @base = (splitdir(dirname(__FILE__)), '..');
my $lib = join('/', @base, 'lib');
-e catdir(@base, 't') ? unshift(@INC, $lib) : push(@INC, $lib);
# "My eyes! The goggles do nothing!"
require Mojolicious::Commands;
Mojolicious::Commands->start;
=head1 NAME
mojo - The Mojolicious command system
=head1 SYNOPSIS
$ mojo --help
=head1 DESCRIPTION
List and run L<Mojolicious> commands as described in
L<Mojolicious::Commands>.
=head1 SEE ALSO
L<Mojolicious>, L<Mojolicious::Guides>, L<http://mojolicio.us>.
=cut
|
