GlobalDestruction.xs

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