| Test-Harness documentation | Contained in the Test-Harness distribution. |
TAP::Parser::Iterator - Base class for TAP source iterators
Version 3.23
# to subclass:
use vars qw(@ISA);
use TAP::Parser::Iterator ();
@ISA = qw(TAP::Parser::Iterator);
sub _initialize {
# see TAP::Object...
}
sub next_raw { ... }
sub wait { ... }
sub exit { ... }
This is a simple iterator base class that defines TAP::Parser's iterator API. Iterators are typically created from TAP::Parser::SourceHandlers.
newCreate an iterator. Provided by TAP::Object.
next while ( my $item = $iter->next ) { ... }
Iterate through it, of course.
next_rawNote: this method is abstract and should be overridden.
while ( my $item = $iter->next_raw ) { ... }
Iterate raw input without applying any fixes for quirky input syntax.
handle_unicodeIf necessary switch the input stream to handle unicode. This only has any effect for I/O handle based streams.
The default implementation does nothing.
get_select_handlesReturn a list of filehandles that may be used upstream in a select() call to signal that this Iterator is ready. Iterators that are not handle-based should return an empty list.
The default implementation does nothing.
waitNote: this method is abstract and should be overridden.
my $wait_status = $iter->wait;
Return the wait status for this iterator.
exitNote: this method is abstract and should be overridden.
my $wait_status = $iter->exit;
Return the exit status for this iterator.
Please see SUBCLASSING in TAP::Parser for a subclassing overview.
You must override the abstract methods as noted above.
TAP::Parser::Iterator::Array is probably the easiest example to follow. There's not much point repeating it here.
| Test-Harness documentation | Contained in the Test-Harness distribution. |
package TAP::Parser::Iterator; use strict; use vars qw($VERSION @ISA); use TAP::Object (); @ISA = qw(TAP::Object);
$VERSION = '3.23';
sub next { my $self = shift; my $line = $self->next_raw; # vms nit: When encountering 'not ok', vms often has the 'not' on a line # by itself: # not # ok 1 - 'I hate VMS' if ( defined($line) and $line =~ /^\s*not\s*$/ ) { $line .= ( $self->next_raw || '' ); } return $line; } sub next_raw { require Carp; my $msg = Carp::longmess('abstract method called directly!'); $_[0]->_croak($msg); }
sub handle_unicode { }
sub get_select_handles { return; }
sub wait { require Carp; my $msg = Carp::longmess('abstract method called directly!'); $_[0]->_croak($msg); } sub exit { require Carp; my $msg = Carp::longmess('abstract method called directly!'); $_[0]->_croak($msg); } 1;