package Foo;

sub method1
{
  my $self = shift;
  my $object = $self->{object};
  $object->method1(@_);
}
sub method2
{
  my $self = shift;
  my $object = $self->{object};
  $object->method2(@_);
}
sub method3
{
  my $self = shift;
  my $object = $self->{otherobject};
  $object->method3(@_);
}