This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Tests for XS lvalue functions
[perl5.git] / ext / XS-APItest / APItest.xs
index 4fa4e1e..b9f4a67 100644 (file)
@@ -2781,6 +2781,17 @@ BOOT:
     cv_set_call_checker(asscv, THX_ck_entersub_postinc, (SV*)asscv);
 }
 
+SV *
+lv_temp_object()
+CODE:
+    RETVAL =
+         sv_bless(
+           newRV_noinc(newSV(0)),
+           gv_stashpvs("XS::APItest::TempObj",GV_ADD)
+         );             /* Package defined in test script */
+OUTPUT:
+    RETVAL
+
 MODULE = XS::APItest           PACKAGE = XS::APItest::Magic
 
 PROTOTYPES: DISABLE