1# subclass for testing customizing & subclassing 2 3package MyResult; 4 5use strict; 6use vars '@ISA'; 7 8use MyCustom; 9use TAP::Parser::Result; 10 11@ISA = qw( TAP::Parser::Result MyCustom ); 12 13sub _initialize { 14 my $self = shift; 15 $self->SUPER::_initialize(@_); 16 $main::INIT{ ref($self) }++; 17 $self->{initialized} = 1; 18 return $self; 19} 20 211; 22