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