---
name: "Test::Harness::Iterator"
section: "3perl"
platform: "linux"
package: "perl-doc"
version: "5.10.0-19lenny5"
release: "Debian 5.0 (Lenny)"
platforms: ["linux"]
url: "https://new.carta.tech/Test::Harness::Iterator"
---

# Test::Harness::Iterator(3perl)

Internal Test::Harness Iterator

## NAME

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

## SYNOPSIS

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

## DESCRIPTION

**FOR INTERNAL USE ONLY!**

This is a simple iterator wrapper for arrays and filehandles.

### *new()*

Create an iterator.

### *next()*

Iterate through it, of course.