git.maemo.org Git - dh-make-perl/blob - dev/i386/libtest-harness-perl/libtest-harness-perl-3.12/t/lib/MyResultFactory.pm

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