1 # subclass for testing TAP::Harness custom sources
3 package MyFileSourceHandler;
7 our ($LAST_OBJ, $CAN_HANDLE, $MAKE_ITER, $LAST_SOURCE);
9 use TAP::Parser::IteratorFactory;
11 use base qw( TAP::Parser::SourceHandler::File MyCustom );
17 TAP::Parser::IteratorFactory->register_handler(__PACKAGE__);
21 $class->SUPER::can_handle(@_);
27 my ( $class, $source ) = @_;
28 my $iter = $class->SUPER::make_iterator($source);
30 $LAST_SOURCE = $source;