main::get_elevation_from_coordinates(5.mp.pl:317):
317:	  my $data    = Data::Roundtrip::json2perl($content);
318:	  die "failed to parse received data:\n$content\n"
>> s
Data::Roundtrip::json2perl(/usr/local/share/perl/5.30.0/Data/Roundtrip.pm:192):
192:		my $json_string = $_[0];
>> v
189:		return $pv
190 	}
191 	sub	json2perl {
192==>		my $json_string = $_[0];
193 		#my $params = defined($_[1]) ? $_[1] : {};
194:		my $pv = JSON::decode_json(Encode::encode_utf8($json_string));
195:		if( ! defined $pv ){ warn "json2perl() :  error, call to json2perl() has failed"; return undef }
196:		return $pv;
197 	}
198 	sub	json2json {
>> n
Data::Roundtrip::json2perl(/usr/local/share/perl/5.30.0/Data/Roundtrip.pm:194):
194:		my $pv = JSON::decode_json(Encode::encode_utf8($json_string));
>> p $json_string 
{"elevation":821,"success":true,"requestNum":"163546920137"}
>> l 198-215
198 	sub	json2json {
199:		my $json_string = $_[0];
200:		my $params = defined($_[1]) ? $_[1] : {};
201 	
202:		my $pv = json2perl($json_string, $params);
203:		if( ! defined $pv ){ warn "json2perl() :  error, call to json2perl() has failed"; return undef }
204:		$json_string = perl2json($pv, $params);
205:		if( ! defined $json_string ){ warn "json2perl() :  error, call to perl2json() has failed"; return undef }
206 	
207:		return $json_string;
208 	}
209 	sub	yaml2yaml {
210:		my $yaml_string = $_[0];
211:		my $params = defined($_[1]) ? $_[1] : {};
212 	
213:		my $pv = yaml2perl($yaml_string, $params);
214:		if( ! defined $pv ){ warn "yaml2perl() :  error, call to yaml2perl() has failed"; return undef }
215:		$yaml_string = perl2yaml($pv, $params);
>> r
scalar context return from Data::Roundtrip::json2perl: 'elevation' => 821
'requestNum' => 163546920137
'success' => JSON::PP::Boolean=SCALAR(0x55e918df2b78)
   -> 1