diff options
author | dakkar <dakkar@thenautilus.net> | 2016-11-10 14:26:47 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2016-11-10 14:26:47 +0000 |
commit | 3db58a4fe8a121093bc5c5287eb808f71de87441 (patch) | |
tree | b6ecd45739d931ae4a096ac2876674e16386a001 /typemap | |
parent | move example script into examples/ (diff) | |
download | Data-QRCode-3db58a4fe8a121093bc5c5287eb808f71de87441.tar.gz Data-QRCode-3db58a4fe8a121093bc5c5287eb808f71de87441.tar.bz2 Data-QRCode-3db58a4fe8a121093bc5c5287eb808f71de87441.zip |
move QRcode* to ::Result, wrap in Moo
Diffstat (limited to 'typemap')
-rw-r--r-- | typemap | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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); |