You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
410 B
15 lines
410 B
10 years ago
|
#!/usr/bin/env perl
|
||
|
use Mojo::Base -strict;
|
||
|
|
||
|
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);
|
||
|
|
||
|
# Start commands for application
|
||
|
require Mojolicious::Commands;
|
||
|
Mojolicious::Commands->start_app('LDV');
|