Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tag: 0.02
Fetching contributors…

Cannot retrieve contributors at this time

33 lines (28 sloc) 0.466 kB
#!/usr/bin/perl
use strict;
use warnings;
use lib qw/lib/;
use Proclet;
my $proclet = Proclet->new;
$proclet->service(
code => sub {
local $0 = "$0 (sleep 5)";
warn $0;
sleep 5;
},
worker => 2
);
$proclet->service(
code => sub {
local $0 = "$0 (sleep 2)";
warn $0;
sleep 2;
},
worker => 3
);
$proclet->service(
code => sub {
exec('/usr/bin/memcached');
},
);
$proclet->run;
Jump to Line
Something went wrong with that request. Please try again.