1# subclass for testing customizing & subclassing 2 3package MyPerlSourceHandler; 4 5use strict; 6use warnings; 7 8use TAP::Parser::IteratorFactory; 9 10use base qw( TAP::Parser::SourceHandler::Perl MyCustom ); 11 12TAP::Parser::IteratorFactory->register_handler(__PACKAGE__); 13 14sub can_handle { 15 my $class = shift; 16 my $vote = $class->SUPER::can_handle(@_); 17 $vote += 0.1 if $vote > 0; # steal the Perl handler's vote 18 return $vote; 19} 20 211; 22 23