Select Code to Download

my $dsgn = create_new();
$dsgn->(method);
...
    my $ret = new (c++_object);
    return $ret;
}

my $dsgn = create_new();
$dsgn->(method);
...
    refcnt_inc($ret);
    return $ret;
}

use warnings;
use Inline C => Config =>
...
print get_refcnt($x), "\n";
refcnt_inc($x);
print get_refcnt($x), "\n";