Net::ISC::DHCPd::Process - Skeleton process class
package MyProcessRole; use Moose; use Net::ISC::DHCPd::Process
has program => ( is => 'rw' ); has args => ( is => 'rw' ); has user => ( is => 'rw' ); has group => ( is => 'rw' );
after BUILDALL => sub { my $self = shift; my $args = shift;
if($args->{'start'}) { # spawn process } };
sub kill { # kill process }
MyProcessRole->meta->apply( Net::ISC::DHCPd::Process->meta );
1;
$self = $class->new($args) $self = $class->new(%args)
Spawns a dhcpd process, running in the background.
Args:
program args user group start
$pid = $self->pid
$bool = $self->kill($signal)