{
  package Foo;
  use Moose;
  around new => sub
  {
    my ($orig, $class, @args) = @_;
    if (caller() eq 'Bar') {
      print "Returning real Foo.\n";
      return $class->$orig(@args);
    }
    print "Returning fake Foo.\n";
    return FakeFoo->new(@args);
  };
}