#!/usr/bin/perl # Copyright (C) 2008-2009, Sebastian Riedel. use strict; use warnings; use Cwd 'getcwd'; use File::Spec; use FindBin; # Dist use lib "$FindBin::Bin/lib"; use lib "$FindBin::Bin/../lib"; use lib "$FindBin::Bin/../../lib"; # App use lib join '/', File::Spec->splitdir(getcwd); # Check if Mojo is installed eval 'use Mojolicious::Scripts'; if ($@) { print <new; $scripts->run(@ARGV);