/trunk/Examples/test-suite/perl5/disown_runme.pl
Perl | 10 lines | 6 code | 4 blank | 0 comment | 1 complexity | 70ed2f68ae2bf830b50752a3e9d0a7eb MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- use disown;
- if (1) {
- $a = new disown::A();
- $b = new disown::B();
- $c = $b->acquire($a);
- }