# subclass for testing customizing & subclassing
package MyGrammar;
use strict;
use vars '@ISA';
use MyCustom;
use TAP::Parser::Grammar;
@ISA = qw( TAP::Parser::Grammar MyCustom );
sub _initialize {
my $self = shift;
$self->SUPER::_initialize(@_);
$main::INIT{ ref($self) }++;
$self->{initialized} = 1;
return $self;
}
1;