view release on metacpan or  search on metacpan

lib/Apple/AppStoreConnect.pm  view on Meta::CPAN

234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
}
 
sub get {
    my $self = shift;
    my %args = @_;
 
    my $resp = $self->get_response(%args);
 
    unless ($self->{curl}) {
        die $resp->status_line unless $resp->is_success;
        $resp = $resp->decoded_content;
    }
 
    return $args{raw} ? $resp : JSON::decode_json($resp);
}
 
sub get_response {
    my $self = shift;
    my %args = @_;
 
    croak("url required") unless $args{url};