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