Yet Another CPAN Grep

Linux-GetPidstat ( Y/YO/YOHEIMUTA/Linux-GetPidstat-0.10.tar.gz, YOHEIMUTA, 2019; MetaCPAN )

Linux-GetPidstat/lib/Linux/GetPidstat/Writer/Mackerel.pm ( view source; MetaCPAN )

se strict;
use warnings;

use Carp;
use Time::Piece;
use WebService::Mackerel;
use JSON::XS qw/decode_json encode_json/;

sub new {
    my ( $class, %opt ) = @_;

    my $mackerel = WebService::Macker

id metric type of mackerel: type=$metric_type";
        }
    };

    my $content = eval { decode_json $res; };
    if (chomp $@) {
        carp "Failed mackerel post $metric_type metrics: err=$@, res

es";
        return;
    }

    my $is_success = $content->{success} || 0;
    if ($is_success != JSON::true or $content->{error}) {
        use Data::Dumper;
        local $Data::Dumper::Terse  = 1;