XS.xs

   1 #include "EXTERN.h"
   2 #include "perl.h"
   3 #include "XSUB.h"
   4
   5 #include "ppport.h"
   6
   7 MODULE = Devel::GlobalDestruction::XS PACKAGE = Devel::GlobalDestruction::XS
   8
   9 PROTOTYPES: ENABLE
  10
  11 I32
  12 in_global_destruction()
  13    PROTOTYPE:
  14    CODE:
  15       RETVAL = PL_dirty;
  16    OUTPUT:
  17       RETVAL