Select Code to Download

sub DoTask1 {
   my ($object, @arguments) = @_;
...
   }
   return $object->CommonTask(@arguments);
}

sub Helper {
   my ($object, $defaults, @arguments) = @_;
...
   }
   return $object->Helper([ qw(ARG3 ARG5 ARG7) ], @arguments);
}

sub Helper {
   my ($object, $code, $defaults, @arguments) = @_;
...
                              $object->DoSomeMoreSetup();
                           }, [ qw(ARG3 ARG5 ARG7) ], @arguments);
}

my $original_state = Module::GetServiceState();
Module::SetServiceState(0); # temporarily disable the service, if it's
+ not already
...
$object->DoSomethingElse();

Module::SetStatus($original_state); # restore it to what it was before

sub TempDisableService {
   my $code = shift;
...
   $object->DoSomethingAlso();
};

TempDisableService {
   $object->DoSomething();
   $object->DoSomethingElse();
};