#!/usr/bin/env perl use strict; use warnings; use Data::Dumper; use File::Basename 'dirname'; use File::Spec::Functions qw(catdir splitdir); BEGIN{ $ENV{MOJO_MODE} ||= 'development'; # $ENV{MOJO_MODE} = 'production'; $ENV{MOJO_HOME} ||= '/var/www/Wcpancover'; } # Source directory has precedence my @base = (splitdir(dirname(__FILE__)), '..'); my $lib = join('/', @base, 'lib'); -e catdir(@base, 't') ? unshift(@INC, $lib) : push(@INC, $lib); $ENV{MOJO_APP} ||= ''; # Start commands for application require Mojolicious::Commands; Mojolicious::Commands->start_app('Wcpancover'); __END__