libtqt-perl/PerlTQt/t/My/Codec.pm

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

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

1;