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