{ package File::Collector::Iterator::All; sub AUTOLOAD { our $AUTOLOAD; my $self = shift; my $method = ($AUTOLOAD =~ m/::([^:]+)$/); $$self->$method(@_) while ($$self->next); } }