{
my $f = "foo";
my $m = Object::MethodChain->$f->bar(my $v);
my $c = Object::MethodChain->new->$m->baz("her p");
my $n = AnObj->$c;
print $v, $n;
}