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