#!/usr/bin/perl

use strict;
use warnings;

my $obj = Obj->new;
if ($obj->foo) {
  print "\$obj->foo called Foo::foo\n";
} else {
  die "Foo class was not touched!\n";
}

package Foo;

sub new { return bless { }; }

sub foo {
  print "In Foo::foo, where the work gets done.\n";
  return 1;
}

package Obj;

sub new {
  return bless { _foo => Foo->new };
}

sub foo {
  my $self = shift;
  print "In Obj::foo and about to pass the buck.\n";
  return $self->{_foo}->foo(@_);
}