blob: ef93f9dfc157007bd42e4093fae84f3db4bee319 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# 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;
|
