git.maemo.org Git - pkg-perl/blob - deb-src/libtest-harness-perl/libtest-harness-perl-3.12/t/lib/EmptyParser.pm

   1 package EmptyParser;
   2
   3 use strict;
   4 use vars qw(@ISA);
   5
   6 use TAP::Parser ();
   7
   8 @ISA = qw(TAP::Parser);
   9
  10 sub _initialize {
  11     shift->_set_defaults;
  12 }
  13
  14 # this should really be in TAP::Parser itself...
  15 sub _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
  30 1;