1# subclass for testing customizing & subclassing
2
3package MyIterator;
4
5use strict;
6use vars '@ISA';
7
8use MyCustom;
9use TAP::Parser::Iterator;
10
11@ISA = qw( TAP::Parser::Iterator MyCustom );
12
13sub _initialize {
14    my $self = shift;
15    $self->SUPER::_initialize(@_);
16    $main::INIT{ ref($self) }++;
17    $self->{initialized} = 1;
18    $self->{content} = [ 'whats TAP all about then?', '1..1', 'ok 1' ];
19    return $self;
20}
21
22sub next {
23    return shift @{ $_[0]->{content} };
24}
25
261;
27