Help for this page
my $object = My::Class->new(); while (my $value = $object->next_val() ) { # do cool stuff }
my $object = My::Class->new(); while (my $value = eval { $object->next_val() } ) { ... } # do cool stuff }