+++ /dev/null
-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;