view release on metacpan or  search on metacpan

lib/App/Ringleader.pm  view on Meta::CPAN

                sleep 1;
            }

            # always store the latest access time
            $self->cache->set( $host => time );
        })
    );

    $self->start_monitor;

    say 'ringleader started...';

    $proxy->start;
}

sub start_monitor {
    my $self = shift;

    return if fork;

    while( sleep $self->inactivity_delay ) {