view release on metacpan or  search on metacpan

lib/App/SimpleHTTPServer.pm  view on Meta::CPAN

use strict;
use warnings;
package App::SimpleHTTPServer;
$App::SimpleHTTPServer::VERSION = '0.002';
# ABSTRACT: Serve up a directory via http simply and easily

BEGIN { @ARGV = qw/ -m production /; }
use Mojolicious::Lite;
use Scalar::Util qw/ looks_like_number /;

our $TESTING = 0;

sub import {
    my $package = shift;
    my $port    = shift;
    if (not looks_like_number $port) {
        unshift @_, $port if defined $port;
        $port   = 8000;
    }
    my $path    = shift;
       $path    = '.' unless defined $path;

    push @{ app->renderer->classes }, __PACKAGE__;
    push @{ app->static->classes }, __PACKAGE__;

    plugin 'Directory::Stylish' => root => $path;