sub SetDestination {
   my ($self, $class) = @_;
   $self->{destination} = do {
      no strict 'refs';
      \&{"${class}::destination"}
   };
}

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