1package EmptyParser; 2 3use strict; 4use vars qw(@ISA); 5 6use TAP::Parser (); 7 8@ISA = qw(TAP::Parser); 9 10sub _initialize { 11 shift->_set_defaults; 12} 13 14# this should really be in TAP::Parser itself... 15sub _set_defaults { 16 my $self = shift; 17 18 for my $key (qw( grammar_class result_factory_class )) { 19 my $default_method = "_default_$key"; 20 $self->$key( $self->$default_method() ); 21 } 22 23 return $self; 24} 25 261; 27