CPAN::Groonga

use warnings;
use Net::Azure::Authorization::SAS;
use Net::Azure::NotificationHubs::Request;
use JSON;
use HTTP::Tiny;
use URI;
use Carp;
use String::CamelCase qw/camelize wordsplit/;
use Class::Acce

      = HTTP::Tiny->new(agent => sprintf('%s/%s', $class, $VERSION));
    $param{serializer}    = JSON->new->utf8(1);
    $param{api_version} ||= $DEFAULT_API_VERSION || croak 'api_version is required

package Net::Azure::NotificationHubs::Response;
use strict;
use warnings;

use JSON;
use Carp;
use Class::Accessor::Lite (
    ro => [qw[status reason headers content success]],
    new => 0
);

sub n

 $type = $self->headers->{'content-type'};

    if ($type && $type =~ /\Aapplication\/json/) {
        return JSON->new->utf8(1)->decode($self->{content});
    }
    return;
}
 
1;

=encoding utf-8

=

uest->new(GET => 'http://...');
    $req->agent(HTTP::Tiny->new);
    my $res = $req->do;
    my $json_data = $res->as_hashref;

=head1 DESCRIPTION

Net::Azure::NotificationHubs::Response is a respons