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