Debian lenny version packages

[pkg-perl] / deb-src / libtest-harness-perl / libtest-harness-perl-3.12 / t / lib / MyIteratorFactory.pm

# subclass for testing customizing & subclassing

package MyIteratorFactory;

use strict;
use vars '@ISA';

use MyCustom;
use MyIterator;
use TAP::Parser::IteratorFactory;

@ISA = qw( TAP::Parser::IteratorFactory MyCustom );

sub make_iterator {
    my $class = shift;
    return MyIterator->new(@_);
}

1;