Ok, thanks.

I really like having the external iterator and I think I'm definitely going to keep it. It helps keep the code clean and super simple to follow and I don't have to pass files around as arguments.

my $s = shift;
while ($s->get_next_bad_file) {
  $s->delete_file;
}

...elsewhere...

sub delete_file {
  my $s = shift;;
  unlink $s->selected_file, 
}
[download]