view release on metacpan or  search on metacpan

lib/Padre/Plugin/HG.pm  view on Meta::CPAN

# vcs_execute
#
# Executes a command after changing to the appropriate dir.
# $self->vcs_execute($command, $dir);
# All output is captured and returned as a string.

sub vcs_execute
{
	my ($self, $command, $dir) = @_;
	print "Command $command\n";
	my $busyCursor = Wx::BusyCursor->new();
	my $result = capture_merged(sub{chdir($dir);system($command)});
	if (!$result){$result = "Action Completed"}
	$busyCursor = undef;
	return $result;
}





# show_statusTree
#
# Displays a Project Browser in the side pane. The Browser shows the status of the