update application script to latest mojolicous

This allows us to run using morbo and restore reload on developemnt
feature

diff --git a/run.sh b/run.sh
index 91d2470..76276e0 100755 (executable)
--- a/run.sh
+++ b/run.sh
@@ -1,3 +1,3 @@
 #!/bin/sh -x
 
-LANG=hr_HR.utf8 ./script/mojo_facets daemon --reload 2>&1 | tee /tmp/mojo_facets.log
+LANG=hr_HR.utf8 morbo ./script/mojo_facets 2>&1 | tee /tmp/mojo_facets.log

diff --git a/script/mojo_facets b/script/mojo_facets
index 6669967..32b8a59 100755 (executable)
--- a/script/mojo_facets
+++ b/script/mojo_facets
@@ -1,23 +1,14 @@
 #!/usr/bin/env perl
+use Mojo::Base -strict;
 
-use strict;
-use warnings;
+use File::Basename 'dirname';
+use File::Spec::Functions qw(catdir splitdir);
 
-use FindBin;
+# Source directory has precedence
+my @base = (splitdir(dirname(__FILE__)), '..');
+my $lib = join('/', @base, 'lib');
+-e catdir(@base, 't') ? unshift(@INC, $lib) : push(@INC, $lib);
 
-use lib "$FindBin::Bin/../lib";
-use lib "$FindBin::Bin/../../lib";
-
-# Check if Mojo is installed
-eval 'use Mojolicious::Commands';
-die <<EOF if $@;
-It looks like you don't have the Mojo Framework installed.
-Please visit http://mojolicious.org for detailed installation instructions.
-
-EOF
-
-# Application
-$ENV{MOJO_APP} ||= 'MojoFacets';
-
-# Start commands
-Mojolicious::Commands->start;
+# Start commands for application
+require Mojolicious::Commands;
+Mojolicious::Commands->start_app('MojoFacets');