view release on metacpan or  search on metacpan

bin/snerp-projector  view on Meta::CPAN

		{ env => \%env },

	);

	$git->run("branch", "-D", $branch);
}

sub purge_project {
	my $project = shift;

	_log("Purging backups from $project->{git_base_dir}...");

	system(
		"/bin/rm", "-r", "-f",
		"$project->{git_base_dir}/.git/refs/original",
		"$project->{git_base_dir}/.git/refs/logs/",
	) and die $!;

	_log("Expiring reflog entries from $project->{git_base_dir}...");
	$project->{git}->run("reflog", "expire", "--all");