1 contributor
#!/usr/bin/env perl
use strict;
use warnings;
use File::Basename qw/basename dirname/;
use File::Spec::Functions qw/catdir splitdir/;
BEGIN {
# Source directory has precedence
my $script_name = basename __FILE__;
my $base_dir_name = $script_name;
$base_dir_name =~ s/\.cgi$//;
my @base_dir = (splitdir(dirname __FILE__), $base_dir_name);
my $mojo_lib = join('/', @base_dir, 'mojo', 'lib');
my $lib = join('/', @base_dir, 'lib');
my $extlib = join('/', @base_dir, 'extlib', 'lib', 'perl5');
eval 'use lib $mojo_lib, $extlib, $lib';
croak $@ if $@;
}
use Mojolicious::Commands;
# Check if Mojolicious is installed;
die <<EOF unless eval 'use Mojolicious::Commands; 1';
It looks like you don't have the Mojolicious framework installed.
Please visit http://mojolicio.us for detailed installation instructions.
EOF
# Start commands
$ENV{MOJO_MODE} = 'production';
Mojolicious::Commands->start_app('Gitprep');