File Coverage

blib/lib/App/SimpleHTTPServer.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	4	8	50.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	32	36	88.8

use strict;
use warnings;
package App::SimpleHTTPServer;

# ABSTRACT: Serve up a directory via http simply and easily
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;

    plugin Directory => root => $path;

    my @args = (qw/ daemon -l /, "http://*:$port/");
       @args = (qw/ eval /) if $TESTING; # For testing, it needs something to
                                         # do so it doesn't display help message

    app->start(@args);
}

1;