The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

#!/usr/bin/env perl
use strict;
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
Mojolicious::Commands->start_app('Wcpancover');
__END__