#!/usr/bin/perl

use Inline C;

use strict;
use warnings;

use Data::Dumper;

my $obj = mkobj();
print ref($obj) . "\n";
print Dumper($obj) . "\n";

__END__
__C__

SV* mkobj() {
	
	HV* hash = newHV();
		
	hv_store(hash, "name", 5, newSVpv("John Doe", 0), 0);
	hv_store(hash, "age", 4, newSViv(42), 0);
	SV* rv = newRV_inc((SV*) hash);
	
	return sv_bless(rv, gv_stashpv("MyClass", GV_ADD));	
}