[perl5.git] / cpan / Test-Harness / t / lib / MyGrammar.pm

# subclass for testing customizing & subclassing

package MyGrammar;

use strict;
use warnings;

use parent 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;
befb5359	6	use warnings;
f7c69158	7
befb5359	8	use parent qw( TAP::Parser::Grammar MyCustom );
f7c69158 NC	9
	10	sub _initialize {
	11	my $self = shift;
	12	$self->SUPER::_initialize(@_);
	13	$main::INIT{ ref($self) }++;
	14	$self->{initialized} = 1;
	15	return $self;
	16	}
	17
	18	1;