More than 5 years have passed since last update.

plackapp

Perl

Last updated at 2012-12-26Posted at 2012-03-16

#!/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

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up