blob: 2a41f5b6a3358b6ba4d59fbefbbd553a5817c811 (
plain) (
tree)
|
|
use Cro::HTTP::Server;
use Cro::HTTP::Router;
use Cro::HTTP::Log::File;
unit sub MAIN(
Bool :$debug = True, #= enable debug mode
);
my $application = route {
};
my $host = 0.0.0.0;
my $port = 9090;
my Cro::Service $http = Cro::HTTP::Server.new(
http => <1.1>,
host => $host,
port => $port,
:$application,
after => [
Cro::HTTP::Log::File.new(logs => $*OUT, errors => $*ERR)
]
);
$http.start;
put "Listening at http://{$host}:{$port}";
react {
whenever signal(SIGINT) {
say "Shutting down...";
$http.stop;
done;
}
}
|