script/mojo_facets

   1 #!/usr/bin/env perl
   2 use Mojo::Base -strict;
   3
   4 use File::Basename 'dirname';
   5 use File::Spec::Functions qw(catdir splitdir);
   6
   7 # Source directory has precedence
   8 my @base = (splitdir(dirname(__FILE__)), '..');
   9 my $lib = join('/', @base, 'lib');
  10 -e catdir(@base, 't') ? unshift(@INC, $lib) : push(@INC, $lib);
  11
  12 # Start commands for application
  13 require Mojolicious::Commands;
  14 Mojolicious::Commands->start_app('MojoFacets');