#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"
MODULE = xstest		PACKAGE = xstest

SV*
new()
CODE:
    HV* hv = newHV();
    RETVAL = newSVrv((SV*)hv, NULL);
OUTPUT:
    RETVAL

##</code><code>##

#!/usr/bin/perl

use common::sense;
use xstest;

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