1 files changed, 35 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/t/lib/MyFileSourceHandler.pm b/gnu/usr.bin/perl/cpan/Test-Harness/t/lib/MyFileSourceHandler.pm
new file mode 100644
index 00000000000..d9b66c65d5e
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/Test-Harness/t/lib/MyFileSourceHandler.pm
@@ -0,0 +1,35 @@
+# subclass for testing TAP::Harness custom sources
+
+package MyFileSourceHandler;
+
+use strict;
+use vars qw( @ISA $LAST_OBJ $CAN_HANDLE $MAKE_ITER $LAST_SOURCE );
+
+use MyCustom;
+use TAP::Parser::IteratorFactory;
+use TAP::Parser::SourceHandler::File;
+
+@ISA         = qw( TAP::Parser::SourceHandler::File MyCustom );
+$LAST_OBJ    = undef;
+$CAN_HANDLE  = undef;
+$MAKE_ITER   = undef;
+$LAST_SOURCE = undef;
+
+TAP::Parser::IteratorFactory->register_handler(__PACKAGE__);
+
+sub can_handle {
+    my $class = shift;
+    $class->SUPER::can_handle(@_);
+    $CAN_HANDLE++;
+    return $class;
+}
+
+sub make_iterator {
+    my ( $class, $source ) = @_;
+    my $iter = $class->SUPER::make_iterator($source);
+    $MAKE_ITER++;
+    $LAST_SOURCE = $source;
+    return $iter;
+}
+
+1;