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

#include "channel.h"

MODULE = Image::Filter::Channel PACKAGE = Image::Filter::Channel 

PROTOTYPES: DISABLE

gdImagePtr 
channel (imageptr, chan = 3)
        gdImagePtr imageptr
        int chan