doc-hook.p6

use Cro::HTTP::Server;
use Cro::HTTP::Router;

my $PORT = 2314;

say "Starting server...";
say "Listening on port $PORT...";

my $application = route {
    post -> {
        say "POST at {~DateTime.now.utc.truncated-to('seconds')}";
        shell 'git pull';            # update pod files
        shell 'documentable update'; # update html collection
    }
}

# Create the HTTP service object
my Cro::Service $service = Cro::HTTP::Server.new(
    :host('localhost'), :port($PORT), :$application
);

# Run it
$service.start;

# Cleanly shut down on Ctrl-C
react whenever signal(SIGINT) {
    $service.stop;
    exit;
}