my $object = My::Class->new();
while (my $value = $object->next_val() ) {
     # do cool stuff
     }

##</code><code>##

my $object = My::Class->new();
while (my $value = eval { $object->next_val() } ) {
     if ($@) {
         print "Error: $@\n";
         next();
         }
     # do cool stuff
     }