Proclet - minimalistic Supervisor
use Proclet; my $proclet = Proclet->new( color => 1 ); # add service $proclet->service( code => sub { my $job = $jobqueue->grab; work($job); }, worker => 2, tag => 'worker' ); $proclet->service( code => sub { my $loader = Plack::Loader->load( 'Starlet', port => $port, host => $host || 0, max_workers => 4, ); $loader->run($app); }, tag => 'web' ); $proclet->service( code => sub { exec('/usr/bin/memcached','-p','11211'); }, ); $proclet->run;
Proclet is minimalistic Supervisor, fork and manage many services from one perl script.
Logs from services are Displayed with timestamp and tag.
12:23:16 memcached.1 | <6 server listening (udp) 12:23:16 memcached.1 | <7 send buffer was 9216, now 3728270 12:23:16 memcached.1 | <7 server listening (udp) 12:23:16 web.1 | 2012/08/31-12:23:16 Starman::Server (type Net::Server::PreFork) starting! pid(51516) 12:23:16 web.1 | Resolved [*]:5432 to [0.0.0.0]:5432, IPv4 12:23:16 web.1 | Binding to TCP port 5432 on host 0.0.0.0 with IPv4 12:23:16 web.1 | Setting gid to "20 20 20 401 204 100 98 81 80 79 61 12 402"
Create instance of Proclet.
Attributes are as follows:
interval in seconds between spawning services unless a service exits abnormally (default: 0)
number of seconds to deter spawning of services after a service exits abnormally (default: 1)
colored log (default: 0)
my $logger = File::RotateLogs->new(...) my $proclet = Proclet->new( logger => sub { $logger->print(@_) } );
Sets a callback to print stdout/stderr. uses warn by default.
Add services to Proclet.
Code reference of service
Number of children to fork, default is "1"
Keyword for log. optional
run services
Masahiro Nagano <kazeburo {at} gmail.com>
Proc::Launcher::Manager, related module Parallel::Prefork, Proclet used internally
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Proclet, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Proclet
CPAN shell
perl -MCPAN -e shell install Proclet
For more information on module installation, please visit the detailed CPAN module installation guide.