# subclass for testing customizing & subclassing

package MyResultFactory;

use strict;
use vars '@ISA';

use MyCustom;
use MyResult;
use TAP::Parser::ResultFactory;

@ISA = 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;