The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#ifdef __cplusplus
extern "C" {
#endif

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#ifdef __cplusplus
}
#endif

#include "patchlevel.h"

#if PATCHLEVEL < 5
#  ifndef PL_sawampersand
#    define PL_sawampersand sawampersand
#  endif
#endif


MODULE = Devel::SawAmpersand		PACKAGE = Devel::SawAmpersand

U8
sawampersand()

    PROTOTYPE:

    CODE:
    RETVAL = (U8)PL_sawampersand;

    OUTPUT:
    RETVAL