#!/usr/bin/perl use 5.10.1; use strict; use warnings; use File::Basename qw(basename dirname); use File::Spec::Functions qw(catdir); use Cwd qw(realpath); BEGIN { require lib; my $dir = realpath( dirname(__FILE__) ); lib->import( $dir, catdir( $dir, 'lib' ), catdir( $dir, qw(local lib perl5) ) ); } use Mojolicious::Commands; $ENV{MOJO_LISTEN} ||= $ENV{PORT} ? "http://*:$ENV{PORT}" : "http://*:3001"; # Start command line interface for application Mojolicious::Commands->start_app('Bugzilla::Quantum');