package EmptyParser;

use strict;
use vars qw(@ISA);

use TAP::Parser ();

@ISA = 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( source_class perl_source_class grammar_class
        iterator_factory_class result_factory_class )
      )
    {
        my $default_method = "_default_$key";
        $self->$key( $self->$default_method() );
    }

    return $self;
}

1;