%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Test-Harness-3.42/t/lib/
Upload File :
Create Path :
Current File : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Test-Harness-3.42/t/lib/MyResultFactory.pm

# subclass for testing customizing & subclassing

package MyResultFactory;

use strict;
use warnings;

use MyResult;

use base qw( TAP::Parser::ResultFactory MyCustom );

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;

Zerion Mini Shell 1.0