File Coverage

/usr/local/lib/perl5/site_perl/5.26.1/x86_64-linux/XS/Framework.x/i/xs/typemap/base.h

Criterion	Covered	Total	%
statement	4	4	100.0
branch			n/a
condition			n/a
subroutine			n/a
pod			n/a
total	4	4	100.0

#pragma once
#include "../Sv.h"

namespace xs {

namespace typemap {
    struct DefaultType {};
}

template  struct Typemap { using _not_exists = void; };

template  struct has_typemap : std::true_type {};
template  struct has_typemap::_not_exists> : std::false_type {};

template  struct TypemapBase {
    static inline TYPE in (pTHX_ SV*) = delete;

    static inline Sv create (pTHX_ const TYPE&, const Sv& = Sv()) = delete;

    static inline Sv out (pTHX_ const TYPE& var, const Sv& proto = Sv()) {
        return Typemap::create(aTHX_ var, proto);
    }

    static inline void destroy (pTHX_ const TYPE&, SV*) {}
};

template
auto in (SV* arg) -> decltype(Typemap::in(aTHX_ arg)) {
    return Typemap::in(aTHX_ arg);
}

template ::value, std::decay_t, TYPEMAP>>
Sv out (TYPE&& var, const Sv& proto = Sv()) {
    return Typemap::out(aTHX_ std::forward(var), proto);
}

#ifdef USE_ITHREADS
    template
    auto in (pTHX_ SV* arg) -> decltype(Typemap::in(aTHX_ arg)) {
        return Typemap::in(aTHX_ arg);
    }

    template ::value, std::decay_t, TYPEMAP>>
    Sv out (pTHX_ TYPE&& var, const Sv& proto = Sv()) {
        return Typemap::out(aTHX_ std::forward(var), proto);
    }
#endif

}