Help for this page

Select Code to Download

Select or download this

#include "EXTERN.h"
#include "perl.h"
...
    RETVAL = newSVrv((SV*)hv, NULL);
OUTPUT:
    RETVAL

Select or download this

#!/usr/bin/perl

...

my $obj = xstest::new();
say "object is: $obj";