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;