Select Code to Download

package FOO;

...
undef %FOO::;

print $o->asdf(1..10); # function cannot be found

use strict;
use Inline 'C';
...
int refcount(SV* x) {
    return SvREFCNT(x);
}