File Coverage

blib/lib/Juno/Role/Check.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	35	35	100.0

use strict;
use warnings;
package Juno::Role::Check;
# ABSTRACT: Check role for Juno
$Juno::Role::Check::VERSION = '0.010';
use AnyEvent;
use Moo::Role;
use MooX::Types::MooseLike::Base qw;
use PerlX::Maybe;
use namespace::sweep;

with 'MooseX::Role::Loggable';

has hosts => (
    is      => 'ro',
    isa     => ArrayRef[Str],
    default => sub { [] },
);

has interval => (
    is      => 'ro',
    isa     => Num,
    default => sub {10},
);

has after => (
    is      => 'ro',
    isa     => Num,
    default => sub {0},
);

has on_before => (
    is        => 'ro',
    isa       => CodeRef,
    predicate => 1,
);

has on_result => (
    is        => 'ro',
    isa       => CodeRef,
    predicate => 1,
);

has on_success => (
    is        => 'ro',
    isa       => CodeRef,
    predicate => 1,
);

has on_fail => (
    is        => 'ro',
    isa       => CodeRef,
    predicate => 1,
);

has watcher => (
    is      => 'ro',
    writer  => 'set_watcher',
    clearer => 1,
);

requires 'check';

sub run {
    my $self = shift;

    # keep a watcher per check
    $self->set_watcher( AnyEvent->timer(
        maybe after    => $self->after,
              interval => $self->interval,
              cb       => sub { $self->check },
    ) );

    return 1;
}

1;

__END__