Yet Another CPAN Grep

App-Cltest ( E/EL/ELECTRIC/App-Cltest-v0.0.1.tar.gz, ELECTRIC, 2016; MetaCPAN )

App-Cltest/lib/Cltest/ChangeInfo.pm ( view source; MetaCPAN )

package Cltest::ChangeInfo;
use 5.018;
use warnings;

use JSON::PP;
use Cltest::PatchsetBuildResult;
use Cltest::Utils;

# return hash
sub get_change_detail
{
	my $ua = Cltest::Utils::get_ua();
	my $c

 $resp = $ua->get($url);
	if ($resp->is_success ){
		$_ = $resp->decoded_content;
		return decode_json( substr( $_, index ($_, "\n") + 1) );
	}
	else {
		die "get_change_detail : url = $url ",$resp->s