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.35'; # VERSION

use Mouse;

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

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

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

    sleep 5;

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

no Mouse;

1;

__END__