diff --git a/dev-perl/class_xsaccessor/class_xsaccessor-1.19.recipe b/dev-perl/class_xsaccessor/class_xsaccessor-1.19.recipe
new file mode 100644
index 000000000..d3c5411db
--- /dev/null
+++ b/dev-perl/class_xsaccessor/class_xsaccessor-1.19.recipe
@@ -0,0 +1,54 @@
+SUMMARY="Generate fast XS accessors without runtime compilation"
+DESCRIPTION="Class::XSAccessor implements fast read, write and read/write accessors in XS. \
+Additionally, it can provide predicates such as has_foo() for testing whether the attribute foo \
+exists in the object (which is different from \"is defined within the object\"). It only works \
+with objects that are implemented as ordinary hashes. Class::XSAccessor::Array implements the \
+same interface for objects that use arrays for their internal representation."
+HOMEPAGE="https://metacpan.org/pod/Class::XSAccessor"
+COPYRIGHT="2008, 2009, 2010, 2011, 2012, 2013 by Steffen Mueller"
+LICENSE="Artistic"
+REVISION="1"
+SOURCE_URI="https://cpan.metacpan.org/authors/id/S/SM/SMUELLER/Class-XSAccessor-$portVersion.tar.gz"
+CHECKSUM_SHA256="99c56b395f1239af19901f2feeb125d9ecb4e351a0d80daa9529211a4700a6f2"
+SOURCE_DIR="Class-XSAccessor-$portVersion"
+
+ARCHITECTURES="all !x86_gcc2"
+SECONDARY_ARCHITECTURES="x86"
+
+PROVIDES="
+	class_xsaccessor$secondaryArchSuffix = $portVersion
+	"
+if [ -n "$secondaryArchSuffix" ]; then
+	PROVIDES+="
+		class_xsaccessor = $portVersion
+		"
+fi
+REQUIRES="
+	haiku$secondaryArchSuffix
+	vendor_perl
+	"
+
+BUILD_REQUIRES="
+	haiku${secondaryArchSuffix}_devel
+	"
+BUILD_PREREQUIRES="
+	cmd:gcc$secondaryArchSuffix
+	cmd:make
+	cmd:perl
+	"
+
+BUILD()
+{
+	perl Makefile.PL PREFIX=$prefix
+	make
+}
+
+INSTALL()
+{
+	make pure_install
+}
+
+TEST()
+{
+	make test
+}