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