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