sub SetDestination {
   my ($self, $config) = @_;
   $self->{config} = $config;
}

sub ... {
   my ($self, ...) = @_;
   ...
   $self->{config}->destination(...);
   ...
}