---
name: "Test::Harness::Iterator"
section: "3pm"
platform: "linux"
package: "libtest-harness-perl"
version: "2.64-1"
release: "Debian 4.0 (Etch)"
platforms: ["linux"]
url: "https://new.carta.tech/Test::Harness::Iterator/3pm"
---

# 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.