]> git.imager.perl.org - imager.git/blobdiff - Imager.xs
we don't need to bump API level twice in the same release
[imager.git] / Imager.xs
index 99e41738cc200e119603dab328a3ee3cdb3b7425..6a205ba521498dec8cd0153a1e472dd5a12f4bd6 100644 (file)
--- a/Imager.xs
+++ b/Imager.xs
@@ -1720,6 +1720,22 @@ IV
 i_img_get_height(im)
     Imager::ImgRaw     im
 
+int
+i_img_color_model(im)
+    Imager::ImgRaw     im
+
+int
+i_img_color_channels(im)
+    Imager::ImgRaw     im
+
+int
+i_img_alpha_channel(im)
+    Imager::ImgRaw     im
+  CODE:
+    if (!i_img_alpha_channel(im, &RETVAL))
+      XSRETURN(0);
+  OUTPUT:
+    RETVAL
 
 void
 i_img_is_monochrome(im)