Yet Another CPAN Grep

Sentry ( P/PA/PAVELSR/Sentry-0.01.tar.gz, PAVELSR, 2018; MetaCPAN )

Sentry/lib/Sentry.pm ( view source; MetaCPAN )

'0.01';


use LWP::UserAgent;
use MIME::Base64 'encode_base64';
use Sys::Hostname;
use POSIX;
use JSON::XS;
use Sub::Name;
use Carp;
use Class::Tiny;

my @LEVELS;

BEGIN {
    @LEVELS = qw( fatal erro

;
    $message = encode_json $message;
    my $response = $self->{ua}->post(
        $self->{uri},
        'X-Sentry-Auth' => $auth,
        'Content-Type'  => 'application/json',
        Content

ecoded_content;
        }

        die $response->status_line;
    }

    my $answer_ref = decode_json $response->decoded_content;

    die 'Wrong answer format' unless $answer_ref && $answer_ref->{id