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

# · Perl · 10 lines · 6 code · 4 blank · 0 comment · 1 complexity · 70ed2f68ae2bf830b50752a3e9d0a7eb MD5 · raw file 

    

  1. use disown;
    2. 

  2. 

  3. if (1) {
    4. 

  4.     $a = new disown::A();
    5. 

  5.     $b = new disown::B();    
    6. 

  6.     $c = $b->acquire($a);   
    7. 

  7. }
    8.