The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
BEATNIK / Image-Filter-0.07 / Swirl / Swirl.xs 
#ifdef __cplusplus
extern "C" {
#endif
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#ifdef __cplusplus
}
#endif

#include "swirl.h"

MODULE = Image::Filter::Swirl PACKAGE = Image::Filter::Swirl

PROTOTYPES: DISABLE

gdImagePtr 
swirl (imageptr)
          gdImagePtr  imageptr