1# subclass for testing customizing & subclassing
2
3package MyResultFactory;
4
5use strict;
6use warnings;
7
8use MyResult;
9
10use base qw( TAP::Parser::ResultFactory MyCustom );
11
12sub 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
211;
22