/trunk/Examples/test-suite/perl5/disown_runme.pl

 1use disown;
 2
 3if (1) {
 4    $a = new disown::A();
 5    $b = new disown::B();    
 6    $c = $b->acquire($a);   
 7}
 8
 9
10