Help for this page

Select Code to Download


  1. or download this
    sv_setref_pv(perlref, "Artist", (void*)artist);
    artist->perlobj = SvRV(perlref);
    
  2. or download this
    artist->perlobj = sv_setref_pv(perlref, "Artist", (void*)artist);
    
  3. or download this
    #!/usr/bin/perl -l
    use strict;
    ...
      print "End block";
    }
    print "End code";
    
  4. or download this
    Creating artist: Johnny Houseburner
    Refcount: $artist: 1
    ...
    Artist::DESTROY called (Johnny Houseburner)
    End block
    End code