package Foo::SubCodec; use TQt; use My::Codec; use TQt::isa qw( My::Codec ); sub NEW { shift->SUPER::NEW(@_); } sub foo {} 1;