%PDF- %PDF-
Mini Shell

Mini Shell

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

package EmptyParser;

use strict;
use warnings;

use base qw(TAP::Parser);

sub _initialize {
    shift->_set_defaults;
}

# this should really be in TAP::Parser itself...
sub _set_defaults {
    my $self = shift;

    for my $key (qw( grammar_class result_factory_class )) {
        my $default_method = "_default_$key";
        $self->$key( $self->$default_method() );
    }

    return $self;
}

1;

Zerion Mini Shell 1.0