The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
MODULE = Git::Raw			PACKAGE = Git::Raw::Error

INCLUDE: const-xs-error.inc

SV *
message(self)
	Error self

	CODE:
		RETVAL = self -> message;

	OUTPUT: RETVAL

SV *
code(self)
	Error self

	CODE:
		RETVAL = newSViv(self -> code);

	OUTPUT: RETVAL

SV *
category(self)
	Error self

	CODE:
		RETVAL = newSViv(self -> category);

	OUTPUT: RETVAL

SV *
_is_error(self)
	Error self

	CODE:
		RETVAL = newSViv(self -> code != 0);

	OUTPUT: RETVAL

void
DESTROY(self)
	Error self

	CODE:
		Safefree(self);