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 ( 19 qw( source_class perl_source_class grammar_class 20 iterator_factory_class result_factory_class ) 21 ) 22 { 23 my $default_method = "_default_$key"; 24 $self->$key( $self->$default_method() ); 25 } 26 27 return $self; 28} 29 301; 31