>> c
main::get_elevation_from_coordinates(5.mp.pl:312):
312:	  $response = $ua->request($req);
>> v
309 	      "$0 : $payload\n$0 : sending above payload, of $payloadlen bytes...\n";
310 	  }
311 	
312==>b	  $response = $ua->request($req);
313:	  die "Error fetching: " . $response->status_line
314 	    unless $response->is_success;
315 	
316:	  my $content = $response->decoded_content;
317:b	  my $data    = Data::Roundtrip::json2perl($content);
318 	  die "failed to parse received data:\n$content\n"
...
>> s
HTTP::Message::decoded_content(/usr/share/perl5/HTTP/Message.pm:283):
283:	    my($self, %opt) = @_;
>> v
280 	
281 	sub decoded_content
282 	{
283==>	    my($self, %opt) = @_;
284:	    my $content_ref;
285:	    my $content_ref_iscopy;
286 	
287:	    eval {
288:		$content_ref = $self->content_ref;
289:		die "Can't decode ref content" if ref($content_ref) ne "SCALAR";
>> l 280-300
280 	
281 	sub decoded_content
282 	{
283==>	    my($self, %opt) = @_;
284:	    my $content_ref;
285:	    my $content_ref_iscopy;
286 	
287:	    eval {
288:		$content_ref = $self->content_ref;
289:		die "Can't decode ref content" if ref($content_ref) ne "SCALAR";
290 	
291:		if (my $h = $self->header("Content-Encoding")) {
292:		    $h =~ s/^\s+//;
293:		    $h =~ s/\s+$//;
294:		    for my $ce (reverse split(/\s*,\s*/, lc($h))) {
295:			next unless $ce;
296:			next if $ce eq "identity" || $ce eq "none";
297:			if ($ce eq "gzip" || $ce eq "x-gzip") {
298:			    require IO::Uncompress::Gunzip;
299:			    my $output;
300:			    IO::Uncompress::Gunzip::gunzip($content_ref, \$output, Transparent => 0)
>> b 289
>> c
HTTP::Message::decoded_content(/usr/share/perl5/HTTP/Message.pm:289):
289:		die "Can't decode ref content" if ref($content_ref) ne "SCALAR";
>> n
HTTP::Message::decoded_content(/usr/share/perl5/HTTP/Message.pm:291):
291:		if (my $h = $self->header("Content-Encoding")) {
>> r
scalar context return from HTTP::Message::decoded_content: '{"elevation":821,"success":true,"requestNum":"163546920137"}'