From 3db58a4fe8a121093bc5c5287eb808f71de87441 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Thu, 10 Nov 2016 14:26:47 +0000
Subject: move QRcode* to ::Result, wrap in Moo

---
 typemap | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'typemap')

diff --git a/typemap b/typemap
index 5011c4f..7dd54dc 100644
--- a/typemap
+++ b/typemap
@@ -9,14 +9,14 @@ QRecLevel T_ENUM
 INPUT
 
 T_QRCODE
-	if (SvROK($arg) && sv_derived_from($arg, \"Data::QRCode\")) {
+	if (SvROK($arg) && sv_derived_from($arg, \"Data::QRCode::Result\")) {
 	    IV tmp = SvIV((SV*)SvRV($arg));
 	    $var = INT2PTR($type,tmp);
 	}
 	else
 	    Perl_croak_nocontext(\"%s: %s is not of type %s\",
 			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
-			\"$var\", \"Data::QRCode\")
+			\"$var\", \"Data::QRCode::Result\")
 
 T_QRINPUT
 	if (SvROK($arg) && sv_derived_from($arg, \"Data::QRCode::Input\")) {
@@ -31,6 +31,6 @@ T_QRINPUT
 OUTPUT
 
 T_QRCODE
-	sv_setref_pv($arg, \"Data::QRCode\", (void*)$var);
+	sv_setref_pv($arg, \"Data::QRCode::Result\", (void*)$var);
 T_QRINPUT
 	sv_setref_pv($arg, \"Data::QRCode::Input\", (void*)$var);
-- 
cgit v1.2.3