amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-07-03 09:53:23 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP: get new config module into use

Browse source
This commit is contained in:
Duncan Ferguson 2011-07-28 10:23:49 +01:00
parent 74e3913680
commit 6c32234f5f
4 changed files with 338 additions and 490 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/App/ClusterSSH/Base.pm
View file

@ -116,6 +116,12 @@ sub debug {
return $self;
}
sub exit {
my ($self) = @_;
exit;
}
sub config {
my ($self) = @_;
@ -212,6 +218,10 @@ a wrapper to maketext in Locale::Maketext
Output text on STDOUT.
=item $obj->exit;
Stub to allow program to exit neatly from wherever in the code
=item $config = $obj->config;
Returns whatever configuration object has been set up. Croaks if set_config