view release on metacpan or  search on metacpan

bin/mock_onfido.pl  view on Meta::CPAN

    },
);

# Run the HTTP server

my $loop = IO::Async::Loop->new();
$loop->add($httpserver);

$httpserver->listen(
    addr => {
        family   => "inet6",
        socktype => "stream",
        port     => 3000
    },
)->get;

$loop->run;

sub END {
    for my $f (values %files) {
        print "removing $f\n";