PerlQt/t/Foo/SubCodec.pm


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

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


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

sub foo {}

1;