NAME
TAPx::Parser::Iterator - Internal TAPx::Parser Iterator
VERSION
Version 0.50_03
SYNOPSIS
use TAPx::Parser::Iterator;
my $it = TAPx::Parser::Iterator->new(\*TEST);
my $it = TAPx::Parser::Iterator->new(\@array);
my $line = $it->next;
if ( $it->is_first ) { ... }
if ( $it->is_last ) { ... }
Originally ripped off from Test::Harness
.
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.
is_first()
Returns true if on the first line. Must be called after next()
.
is_last()
Returns true if on or after the last line. Must be called after next()
.