[perl5.git] / cpan / Test-Harness / t / lib / MyPerlSourceHandler.pm

# subclass for testing customizing & subclassing

package MyPerlSourceHandler;

use strict;
use vars '@ISA';

use MyCustom;
use TAP::Parser::IteratorFactory;
use TAP::Parser::SourceHandler::Perl;

@ISA = qw( TAP::Parser::SourceHandler::Perl MyCustom );

TAP::Parser::IteratorFactory->register_handler(__PACKAGE__);

sub can_handle {
    my $class = shift;
    my $vote  = $class->SUPER::can_handle(@_);
    $vote += 0.1 if $vote > 0;    # steal the Perl handler's vote
    return $vote;
}

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