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