%loadplugin{feature::default_xs_typemap};

%typemap{const std::string&}{parsed}
{
    %precall_code
    {%
        std::string tmp(SvPV($PerlVar));
        $Cvar = tmp;
    %};
};

%typemap{const std::string}{parsed}
{
    %precall_code
    {%
        std::string $Cvar(SvPV($PerlVar));
    %};
};

%typemap{GenoEye::PosType}{simple}
{
    %xs_type{T_IV};
};

%typemap{GenoEye::Page*}{parsed}
{
    %precall_code
    {%
        IV tmp = SvIV(SvRV($PerlVar));
        $CVar = INT2PTR(GenoEye::Page, tmp);
    %};
    %output_code
    {%
        $CVar->ref();
        sv_setref_pv($PerlVar, "GenoEye::Page", $CVar)
    %};
};