[perl5.git] / t / lib / MyGrammar.pm

# 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;
Commit	Line	Data
f7c69158 NC	1	# subclass for testing customizing & subclassing
	2
	3	package MyGrammar;
	4
	5	use strict;
	6	use vars '@ISA';
	7
	8	use MyCustom;
	9	use TAP::Parser::Grammar;
	10
	11	@ISA = qw( TAP::Parser::Grammar MyCustom );
	12
	13	sub _initialize {
	14	my $self = shift;
	15	$self->SUPER::_initialize(@_);
	16	$main::INIT{ ref($self) }++;
	17	$self->{initialized} = 1;
	18	return $self;
	19	}
	20
	21	1;