1b39c5158Smillert# subclass for testing customizing & subclassing 2b39c5158Smillert 3b39c5158Smillertpackage MyResultFactory; 4b39c5158Smillert 5b39c5158Smillertuse strict; 6*6fb12b70Safresh1use warnings; 7b39c5158Smillert 8b39c5158Smillertuse MyResult; 9b39c5158Smillert 10*6fb12b70Safresh1use base qw( TAP::Parser::ResultFactory MyCustom ); 11b39c5158Smillert 12b39c5158Smillertsub make_result { 13b39c5158Smillert my $class = shift; 14b39c5158Smillert 15b39c5158Smillert # I know, this is not really being initialized, but 16b39c5158Smillert # for consistency's sake, deal with it :) 17b39c5158Smillert $main::INIT{$class}++; 18b39c5158Smillert return MyResult->new(@_); 19b39c5158Smillert} 20b39c5158Smillert 21b39c5158Smillert1; 22