view release on metacpan or  search on metacpan

lib/App/gist.pm  view on Meta::CPAN

		unless $info -> success;

	my $gist_id  = $info -> content -> {'id'};
	my $html_url = $info -> content -> {'html_url'};
	my $pull_url = $info -> content -> {'git_pull_url'};
	my $push_url = $info -> content -> {'git_push_url'};

	if ($web) {
		print "$html_url\n";
	} else {
		print "Gist '$gist_id' successfully created/updated.\n";
		print "Web URL: $html_url\n";
		print "Public Clone URL: $pull_url\n" if $public;
		print "Private Clone URL: $push_url\n";
	}
}

sub _create_gist {
	my ($gist, $name, $data, $description, $public) = @_;

	return $gist -> create(data => {