projects
/
dh-make-perl
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
ef93f9dfc157007bd42e4093fae84f3db4bee319
[dh-make-perl]
/
dev
/
arm
/
libtest-harness-perl
/
libtest-harness-perl-3.12
/
t
/
lib
/
MyGrammar.pm
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;