1 package Test::Harness::Iterator;
10 Test::Harness::Iterator - Internal Test::Harness Iterator
14 use Test::Harness::Iterator;
15 use Test::Harness::Iterator;
16 my $it = Test::Harness::Iterator->new(\*TEST);
17 my $it = Test::Harness::Iterator->new(\@array);
24 B<FOR INTERNAL USE ONLY!>
26 This is a simple iterator wrapper for arrays and filehandles.
31 my($proto, $thing) = @_;
34 if( ref $thing eq 'GLOB' ) {
35 bless $self, 'Test::Harness::Iterator::FH';
38 elsif( ref $thing eq 'ARRAY' ) {
39 bless $self, 'Test::Harness::Iterator::ARRAY';
41 $self->{array} = $thing;
44 warn "Can't iterate with a ", ref $thing;
50 package Test::Harness::Iterator::FH;
57 package Test::Harness::Iterator::ARRAY;
60 return $self->{array}->[$self->{idx}++];