Yet Another CPAN Grep

Net-Sentry-Client ( K/KI/KIO/Net-Sentry-Client-0.001.tar.gz, KIO, 2012; MetaCPAN )

Net-Sentry-Client/lib/Net/Sentry/Client.pm ( view source; MetaCPAN )

::Sentry::Client;


use strict;
use warnings;

use HTTP::Request::Common;
use LWP::UserAgent;
use JSON ();
use Data::UUID::MT ();
use MIME::Base64 'encode_base64';
use Compress::Zlib;
use Time::HiRes

( $uri, %header, Content => $message );
    return $request;
}

# From outside message, we make a json message for server.
sub _getMessage {
    my ( $self, $params ) = @_;
 
    my $data = {

arams->{traceback}||undef,
    };
    my $json = JSON->new->utf8(1)->pretty(1)->allow_nonref(1)->encode( $data );
    
    return encode_base64(compress( $json ));
}

# Make signature which is require