File Coverage

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

Criterion	Covered	Total	%
statement	4	4	100.0
branch	1	2	50.0
condition			n/a
subroutine			n/a
pod			n/a
total	5	6	83.3

#pragma once
#include "base.h"
#include

namespace xs {

// typemap for optional
template  struct Typemap> : Typemap {
    static panda::optional in (SV* arg) {
        if (!SvOK(arg)) return {};
        return Typemap::in(arg);
    }
    static Sv out (const panda::optional& var, const Sv& = {}) {
        if (!var) return Sv::undef;
        return Typemap::out(*var);
    }
};

// not-null wrapper for use in input typemaps
template
struct nn {
    nn () {}
    nn (const nn&) = default;
    nn (nn&&)      = default;

    template
    nn (const nn& oth) : val(oth.val) {}

    template
    nn (nn&& oth) : val(std::move(oth.val)) {}

    template
    nn (U&& val) : val(std::forward(val)) {}

    nn& operator= (const nn&) = default;
    nn& operator= (nn&&)      = default;

    template
    nn& operator= (U&& v) {
        val = std::forward(v);
        return *this;
    }

    decltype(*T()) operator*  () { return *val; }
    T&             operator-> () { return val; }

    operator T () { return val; }

private:
    T val;
};

template  struct Typemap> : Typemap {
    static TYPE in (SV* arg) {
        auto ret = Typemap::in(arg);
        if (!ret) throw "invalid value: undef not allowed";
        return ret;
    }
    static Sv out (TYPE& var, const Sv& = {}) = delete;
};

}