Test::Harness::Iterator(3pm)

NAME

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.