#!/usr/bin/env perl
use strict;
use Plack::Runner;
my ($app, $args) = split(/=/, shift(@ARGV), 2);
if ($app =~ /^\+(.+)$/) {
$app = $1;
} else {
$app = "Plack::App::$app";
}
my $runner = Plack::Runner->new;
$runner->parse_options('-M' => $app, '-e' => "new $app $args", @ARGV);
$runner->run;
__END__
=head1 NAME
plackapp
=head1 SYNOPSIS
plackapp Directory
plackapp 'Directory={root=>q(..)}' -p 9999
More than 5 years have passed since last update.
Register as a new user and use Qiita more conveniently
- You get articles that match your needs
- You can efficiently read back useful information
- You can use dark theme