Yet Another CPAN Grep

HealthCheck-Diagnostic-RemoteHealth ( G/GS/GSG/HealthCheck-Diagnostic-RemoteHealth-v0.1.2.tar.gz, GSG, 2024; MetaCPAN )

HealthCheck-Diagnostic-RemoteHealth/lib/HealthCheck/Diagnostic/RemoteHealth.pm ( view source; MetaCPAN )

c::RemoteHealth;
use parent 'HealthCheck::Diagnostic::WebRequest';
use strict;
use warnings;

use JSON;

# ABSTRACT: Get results from an HTTP HealthCheck
use version;
our $VERSION = 'v0.1.2'; # VERSIO

P status check if OK,
    # since it's implied to be successful
    # if it retrieves the encoded JSON object.
    if (($result->{results}->[0]->{status} || '') eq 'OK' ) {
        shift @{ $result->{

 JSON seems unnecessary, so this has been
# repurposed to return the decoded JSON object.
sub check_content {
    my ($self, $response) = @_;

    local $@;
    my $remote_result = eval { decode_json(