VOX_PARSER *VOX_new_parser(void);

##</code><code>##

VOX_PARSER *
new(CLASS)
	char * CLASS
	CODE:
		RETVAL = VOX_new_parser();
	OUTPUT:
		RETVAL

##</code><code>##

# The Perl object is blessed into 'CLASS', which should be a
# char* having the name of the package for the blessing.
O_OBJECT
	sv_setref_pv($arg, (char *) CLASS, (void *) $var);