#!/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 <start_app('Gitprep');