From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

AGRUNDMA / Image-Scale-0.14 / typemap 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13

              
image *         T_image
INPUT
T_image
        if (!(
           SvROK ($arg)
           && SvOBJECT (SvRV ($arg))
           && sv_derived_from ($arg, \"Image::Scale::XS\")
        ))
          croak (\"object is not of type Image::Scale::XS\");
        /**/
        $var = (image *)SvPVX (SvRV ($arg));