eval { $foo->bar };
$o->foo if $@;