File Coverage

blib/lib/Proc/Launcher/Supervisor.pm

Criterion	Covered	Total	%
statement	12	17	70.5
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	23	73.9

package Proc::Launcher::Supervisor;
use strict;
use warnings;

our $VERSION = '0.0.36'; # VERSION

use Moo;
use MooX::Types::MooseLike::Base qw(Bool Str Int InstanceOf HashRef);

has 'monitor_delay' => ( is       => 'rw',
                         isa      => Int,
                         default  => 15,
                     );

has 'manager'       => ( is       => 'rw',
                         isa      => InstanceOf['Proc::Launcher::Manager'],
                         required => 1,
                     );

sub monitor {
    my ( $self ) = @_;

    sleep 5;

    while ( 1 ) {
        $self->manager->start();
        sleep $self->monitor_delay;
    }
}

1;

__END__