my $value = eval { $object->next_value() };

if ($@) { print "BLAH!\n"; }
print $value, "\n";