/usr/share/perl5/Plack/Handler/HTTP/Server/Simple.pm is in libplack-perl 0.9985-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 | package Plack::Handler::HTTP::Server::Simple;
use strict;
sub new {
my($class, %args) = @_;
bless {%args}, $class;
}
sub run {
my($self, $app) = @_;
my $server = Plack::Handler::HTTP::Server::Simple::PSGIServer->new($self->{port});
$server->host($self->{host}) if $self->{host};
$server->app($app);
$server->{_server_ready} = delete $self->{server_ready} || sub {};
$server->run;
}
package Plack::Handler::HTTP::Server::Simple::PSGIServer;
use parent qw(HTTP::Server::Simple::PSGI);
sub print_banner {
my $self = shift;
$self->{_server_ready}->({
host => $self->host,
port => $self->port,
server_software => 'HTTP::Server::Simple::PSGI',
});
}
package Plack::Handler::HTTP::Server::Simple;
1;
__END__
=head1 NAME
Plack::Handler::HTTP::Server::Simple - Adapter for HTTP::Server::Simple
=head1 SYNOPSIS
plackup -s HTTP::Server::Simple --port 9090
=head1 DESCRIPTION
Plack::Handler::HTTP::Server::Simple is an adapter to run PSGI
applications on L<HTTP::Server::Simple>.
=head1 SEE ALSO
L<Plack>, L<HTTP::Server::Simple::PSGI>
=head1 AUTHOR
Tatsuhiko Miyagawa
=cut
|