File Coverage

blib/lib/App/PerlWatcher/Watcher/HTTPSimple.pm

Criterion	Covered	Total	%
statement	40	40	100.0
branch	2	2	100.0
condition	2	2	100.0
subroutine	11	11	100.0
pod	0	2	0.0
total	55	57	96.4

package App::PerlWatcher::Watcher::HTTPSimple;
{
  $App::PerlWatcher::Watcher::HTTPSimple::VERSION = '0.20';
}
# ABSTRACT: The simple HTTP watcher, where actual http responce body is been processed by closure

use 5.12.0;
use strict;
use warnings;
use utf8;

use App::PerlWatcher::EventItem;
use Carp;
use Smart::Comments -ENV;
use Moo;
use URI;



has 'url'                   => ( is => 'ro', required => 1);


has 'response_handler'      => ( is => 'ro', required => 1);


has 'processed_response'    => ( is => 'rw');

with qw/App::PerlWatcher::Watcher::HTTP/;

sub description {
    my $self = shift;
    my $desc = "HTTP [" . $self->title . "]";
    my $response = $self->processed_response;
    $desc .= " : " . ( $response // q{} );
    return $desc;
}

sub process_http_response {
    my ($self, $content, $headers) = @_;
    my ($result, $success) = (undef, 0);

    eval {
        $result = $self->response_handler->(local $_ = $content);
        $success = 1;
    };
    $result = $@ if($@);

    # $result
    # $success
    $self->processed_response($result);
    $self->interpret_result($success, $self->callback);
}

1;

__END__