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