diff options
Diffstat (limited to 't/lib/MyIteratorFactory.pm')
-rw-r--r-- | t/lib/MyIteratorFactory.pm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/t/lib/MyIteratorFactory.pm b/t/lib/MyIteratorFactory.pm new file mode 100644 index 0000000000..d8c3269cda --- /dev/null +++ b/t/lib/MyIteratorFactory.pm @@ -0,0 +1,19 @@ +# 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; |