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

# subclass for testing customizing & subclassing

package MyResultFactory;

use strict;
use warnings;

use MyResult;

use base qw( TAP::Parser::ResultFactory MyCustom );

sub make_result {
    my $class = shift;

    # I know, this is not really being initialized, but
    # for consistency's sake, deal with it :)
    $main::INIT{$class}++;
    return MyResult->new(@_);
}

1;
Commit	Line	Data
f7c69158 NC	1	# subclass for testing customizing & subclassing
	2
	3	package MyResultFactory;
	4
	5	use strict;
befb5359	6	use warnings;
f7c69158	7
f7c69158	8	use MyResult;
f7c69158	9
406e3fef	10	use base qw( TAP::Parser::ResultFactory MyCustom );
f7c69158 NC	11
	12	sub make_result {
	13	my $class = shift;
	14
	15	# I know, this is not really being initialized, but
	16	# for consistency's sake, deal with it :)
	17	$main::INIT{$class}++;
	18	return MyResult->new(@_);
	19	}
	20
	21	1;