# subclass for testing customizing & subclassing
use strict;
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;