File Coverage

blib/lib/Juno/Check/HTTP.pm

Criterion	Covered	Total	%
statement	18	32	56.2
branch	0	10	0.0
condition			n/a
subroutine	6	8	75.0
pod	1	1	100.0
total	25	51	49.0

use strict;
use warnings;
package Juno::Check::HTTP;
# ABSTRACT: An HTTP check for Juno
$Juno::Check::HTTP::VERSION = '0.010';
use AnyEvent::HTTP;
use Moo;
use MooX::Types::MooseLike::Base qw;
use namespace::sweep;

with 'Juno::Role::Check';

has path => (
    is      => 'ro',
    isa     => Str,
    default => sub {'/'},
);

has headers => (
    is      => 'ro',
    isa     => HashRef,
    default => sub { {} },
);

sub check {
    my $self  = shift;
    my @hosts = @{ $self->hosts };
    my $path  = $self->path;

    foreach my $host (@hosts) {
        my $url = "http://$host" . $path;

        $self->has_on_before
            and $self->on_before->( $self, $host );

        http_get $url, $self->headers, sub {
            my ( $body, $headers ) = @_;

            $self->has_on_result
                and $self->on_result->( $self, $host, $body, $headers );

            if ( $headers->{'Status'} =~ /^2/ ) {
                $self->has_on_success
                    and $self->on_success->( $self, $host, $body, $headers );
            } else {
                $self->has_on_fail
                    and $self->on_fail->( $self, $host, $body, $headers );
            }
        };
    }

    return 0;
}

1;

__END__