BEGIN { push @INC, "./t" ; print "1..1\n" }
package main;
use Qt;
$tc1 = My::SubCodec();
$tc2 = Foo::SubCodec();
$tc1->bar();
$tc2->foo();
$tc2->deleteAllCodecs;
# all imports OK
print "ok 1\n";