File Coverage

blib/lib/BenchmarkAnything/Reporter.pm

Criterion	Covered	Total	%
statement	14	27	51.8
branch	1	10	10.0
condition	0	6	0.0
subroutine	5	8	62.5
pod	2	2	100.0
total	22	53	41.5

use 5.008;
use strict;
use warnings;
package BenchmarkAnything::Reporter;
BEGIN {
  $BenchmarkAnything::Reporter::AUTHORITY = 'cpan:SCHWIGON';
}
# ABSTRACT: Handle result reporting to a BenchmarkAnything HTTP/REST API
$BenchmarkAnything::Reporter::VERSION = '0.003';

sub new
{
        my $class = shift;
        my $self  = bless { @_ }, $class;

        require BenchmarkAnything::Config;
        $self->{config} = BenchmarkAnything::Config->new unless $self->{config};

        return $self;
}


sub report
{
        my ($self, $data) = @_;

        # --- validate ---
        if (not $data)
        {
                die "benchmarkanything: no input data provided.\n";
        }

        my $ua  = $self->_get_user_agent;
        my $url = $self->_get_base_url."/api/v1/add";
        print "Report data...\n" if $self->{verbose} or $self->{debug};
        my $res = $ua->post($url => json => $data)->res;
        print "Done.\n" if $self->{verbose} or $self->{debug};

        die "benchmarkanything: ".$res->error->{message}." ($url)\n" if $res->error;

        return $self;
}

sub _get_user_agent
{
        require Mojo::UserAgent;
        return Mojo::UserAgent->new;
}

sub _get_base_url
{
        $_[0]->{config}{benchmarkanything}{backends}{http}{base_url};
}

1;
3

__END__