testing forking in route handler

fork.pl

#!/usr/bin/perl

use Dancer;


get '/' => sub {
    fork and return "Content!\n";

    sleep 10;
    warn "Child process done\n";
    exit;
};

dance;