my $result = $object->do_something;
if (not $result) {
   warn $object->last_error;
}