sub all {
  my $self = shift;
  bless \ $self, 'File::Collector::Iterator::All';
}

{
  package File::Collector::Iterator::All;

  sub AUTOLOAD {
    our $AUTOLOAD;
    my $self = shift;

    $$self->$AUTOLOAD(@_) while ($$self->next_file);
  }
}

##</code><code>##

sub delete { unlink (shift)->selected_file }