#!/usr/bin/perl
use strict;
use warnings;
use lib qw/lib/;
use Proclet;
use Log::Minimal;
my $proclet = Proclet->new;
$proclet->service(
code => sub {
local $0 = "$0 (sleep 5)";
warnf $0;
sleep 5;
},
worker => 2
);
$proclet->service(
code => sub {
local $0 = "$0 (sleep 2)";
debugf $0;
sleep 2;
},
worker => 3
);
$proclet->service(
code => sub {
exec('/usr/bin/memcached');
},
);
$proclet->run;