projects
/
dh-make-perl
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
ab4845dedf5ebcd5c205f77bcd394d7c3b1c0a12
[dh-make-perl]
/
dev
/
arm
/
libtest-harness-perl
/
libtest-harness-perl-3.12
/
t
/
lib
/
MyResult.pm
1
# subclass for testing customizing & subclassing
2
3
package MyResult;
4
5
use strict;
6
use vars '@ISA';
7
8
use MyCustom;
9
use TAP::Parser::Result;
10
11
@ISA = qw( TAP::Parser::Result 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;