File Coverage

blib/lib/Mackerel/Client.pm

Criterion	Covered	Total	%
statement	18	22	81.8
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	0	2	0.0
total	24	31	77.4

package Mackerel::Client;
use 5.008001;
use strict;
use warnings;
use JSON;
use HTTP::Tiny;

our $VERSION = "0.01_1";

sub new {
    my ($class, %args) = @_;
    my $self = {
        api_key         => $args{api_key},
        service_name    => $args{service_name},
        mackerel_origin => 'https://mackerel.io' || $args{mackerel_origin},
        agent           => HTTP::Tiny->new( agent => "Mackerel::Client agent" ),
    };
    bless $self, $class;
}

sub post_service_metrics {
    my ($self,$args) = @_;
    my $path = '/api/v0/services/' . $self->{service_name} . '/tsdb';
    my $res  = $self->{agent}->request('POST', $self->{mackerel_origin} . $path, {
            content => encode_json $args,
            headers => {
                'content-type' => 'application/json',
                'X-Api-Key'    => $self->{api_key},
            },
        });
    return $res->{content};
}

1;
__END__