package Obj;

sub new {
  ...
  $self->{_foo} = Foo->new;
  ...
}

sub foo {
  my $self = shift;
  return $self->{_foo}->foo(@_);
}