my $dsgn = create_new();
$dsgn->(method);

sub create_new {
    my $ret = new (c++_object);
    return $ret;
}

##</code><code>##

my $dsgn = create_new();
$dsgn->(method);

sub create_new {
    my $ret = new (c++_object);
    refcnt_inc($ret);
    return $ret;
}

##</code><code>##

use warnings;
use Inline C => Config =>
    BUILD_NOISY => 1;

use Inline C => <<'EOC';

void refcnt_inc(SV * sv) {
     SvREFCNT_inc(sv);
}

SV * get_refcnt(SV * sv) {
    return newSVuv(SvREFCNT(sv));
}

EOC

$x = 1;
print get_refcnt($x), "\n";
refcnt_inc($x);
print get_refcnt($x), "\n";