Test::Harness::Iterator(3pm)

Test::Harness::Iterator - Internal Test::Harness Iterator

  use Test::Harness::Iterator;
  my $it = Test::Harness::Iterator->new(\*TEST);
  my $it = Test::Harness::Iterator->new(\@array);

  my $line = $it->next;

FOR INTERNAL USE ONLY! This is a simple iterator wrapper for arrays and filehandles.
new() Create an iterator.
next() Iterate through it, of course.