##
$window->title('foo')->border(20);
##
##
eval {$window->title('foo')->border(20)};
if ($@) {...do something...}
##
##
eval {$window->title('foo')};
if ($@) {....}
else {eval {$window->border(20)}
if ($@) {....}}
##
##
$obj->foo($obj->bar($baz))