view release on metacpan or  search on metacpan

eg/logbench.pl  view on Meta::CPAN

my $result = {};
for my $name (qw! extlib-1.0022/lib/perl5 lib !) {
    my ($fh, $fn) = tempfile();
    my $pid = fork;
    if ($pid) {
        close $fh;
        wait;
    }
    else {
        eval qq{use lib '$name'};
        require Plack;
        use Plack::Builder;
        
        warn $Plack::VERSION;
        my $log_app = builder {
            enable 'AccessLog', format => "combined", logger => sub {};
            sub{ [ 200, [], [ "Hello"] ] };
        };

        my $code = sub {