#!perl -l
use warnings;
no warnings 'once';

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

use Inline C => <<'EOC';

SV * foo(SV * in) {
 return in;
}

SV * get_ref(SV * in) {
 return newSVuv(SvREFCNT(in));
}

EOC

$x = 42;       # $x refcnt == 1
%h = (fu => \$x); # $x refcnt == 2
print "x refcnt: ", get_ref($x);

foo($x); # decrement $x refcnt
print "x refcnt: ", get_ref($x);

$y = foo($x); # decrement $x refcnt
print "x refcnt: ", get_ref($x);
print "y refcnt: ", get_ref($y);

print "x: $x";
print "y: $y";