Select Code to Download

sv_setref_pv(perlref, "Artist", (void*)artist);
artist->perlobj = SvRV(perlref);

artist->perlobj = sv_setref_pv(perlref, "Artist", (void*)artist);

#!/usr/bin/perl -l
use strict;
...
  print "End block";
}
print "End code";

Creating artist: Johnny Houseburner
Refcount: $artist: 1
...
Artist::DESTROY called (Johnny Houseburner)
End block
End code