PerlQt/t/My/SubCodec.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15


package My::SubCodec;
use TQt;
use My::Codec;
use TQt::isa qw( My::Codec );


sub NEW
{
    shift->SUPER::NEW(@_);
}

sub bar {}

1;