PageRenderTime 8ms CodeModel.GetById 1ms app.highlight 4ms RepoModel.GetById 1ms app.codeStats 0ms

/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