1898184e3Ssthen# subclass for testing customizing & subclassing 2898184e3Ssthen 3898184e3Ssthenpackage MyPerlSourceHandler; 4898184e3Ssthen 5898184e3Ssthenuse strict; 6*6fb12b70Safresh1use warnings; 7898184e3Ssthen 8898184e3Ssthenuse TAP::Parser::IteratorFactory; 9898184e3Ssthen 10*6fb12b70Safresh1use base qw( TAP::Parser::SourceHandler::Perl MyCustom ); 11898184e3Ssthen 12898184e3SsthenTAP::Parser::IteratorFactory->register_handler(__PACKAGE__); 13898184e3Ssthen 14898184e3Ssthensub can_handle { 15898184e3Ssthen my $class = shift; 16898184e3Ssthen my $vote = $class->SUPER::can_handle(@_); 17898184e3Ssthen $vote += 0.1 if $vote > 0; # steal the Perl handler's vote 18898184e3Ssthen return $vote; 19898184e3Ssthen} 20898184e3Ssthen 21898184e3Ssthen1; 22898184e3Ssthen 23