Ubic-Service-InitScriptWrapper
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Ubic/Service/InitScriptWrapper.pm view on Meta::CPAN
die "Invalid parameters" unless @_ == 1;
if ($init !~ m{/}) {
$init = "/etc/init.d/$init";
}
unless (-e $init) {
die "Init script $init not found";
}
return bless { init => $init } => $class;
}
sub start_impl {
my $self = shift;
system("$self->{init} start >/dev/null");
}
sub stop_impl {
my $self = shift;
system("$self->{init} stop >/dev/null");
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.851 second using v1.00-cache-2.02-grep-82fe00e-cpan-cec75d87357c )