/trunk/Examples/test-suite/perl5/disown_runme.pl
# · Perl · 10 lines · 6 code · 4 blank · 0 comment · 1 complexity · 70ed2f68ae2bf830b50752a3e9d0a7eb MD5 · raw file
- use disown;
- if (1) {
- $a = new disown::A();
- $b = new disown::B();
- $c = $b->acquire($a);
- }