- my $response = decode_json(get $url)->{response};
- die $response->{message} unless $response->{success};
+ my $htr = $ht->get($url);
+ die $htr->{reason} unless $htr->{success}; ## no critic (RequireCarping)
+ my $response = decode_json($htr->{content})->{response};
+ die $response->{message} unless $response->{success}; ## no critic (RequireCarping)