# subclass for testing customizing & subclassing
package
MyResultFactory;
use
strict;
use
warnings;
use
MyResult;
sub
make_result {
my
$class
=
shift
;
# I know, this is not really being initialized, but
# for consistency's sake, deal with it :)
$main::INIT
{
$class
}++;
return
MyResult->new(
@_
);
}
1;