Select Code to Download

  sub Customer::manager {
      my $self = shift;
      return $self->{delegates}{company}->manager;
...
      my $self = shift;
      return $self->{delegates}{manager};
  }

  sub Customer::manager {
      my $self = shift;
      # return $self->{delegates}{company}->manager
      return $self->{delegates}{office}->manager;
  }