plackup without default middlewares

plackup-without-default-mw

#!/usr/bin/env perl
use strict;
use warnings;

my $runner = Plack::Runner::WithoutDefaultMiddleware->new;
$runner->parse_options(@ARGV);
$runner->run;

package Plack::Runner::WithoutDefaultMiddleware;
use base 'Plack::Runner';

sub prepare_devel {
    my($self, $app) = @_;

    push @{$self->{options}}, server_ready => sub {
        my($args) = @_;
        my $name  = $args->{server_software} || ref($args); # $args is $server
        my $host  = $args->{host} || 0;
        my $proto = $args->{proto} || 'http';
        print STDERR "$name: Accepting connections at $proto://$host:$args->{port}/\n";
    };

    $app;
}