ubic custom commands

MyService.pm

...

sub custom_commands { qw( foo bar ) };
sub do_custom_command {
  my ($self, $command) = @_;
  if ($command eq "foo") {
    ... # do action "foo"
  }
  elsif ($command eq "bar") {
    ... # do action "bar"
  }
  else {
    die "Unknown command '$command'"; # should never happen
  }
}