File Coverage

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

Criterion	Covered	Total	%
statement	10	11	90.9
branch	6	14	42.8
condition			n/a
subroutine			n/a
pod			n/a
total	16	25	64.0

#pragma once
#include

namespace xs {

struct Sub; struct Hash; struct Array;

struct KeyProxy : Scalar {
    KeyProxy (SV** ptr, bool nullok) : Scalar(), ptr(ptr), nullok(nullok) { set(*ptr); }
    KeyProxy (const KeyProxy&) = default;
    KeyProxy (KeyProxy&&)      = default;

    KeyProxy& operator= (std::nullptr_t)    { return operator=(Scalar()); }
    KeyProxy& operator= (const KeyProxy& v) { return operator=((Scalar)v); }
    KeyProxy& operator= (const Scalar& val) {
        Scalar::operator=(val);
        SV* newsv = val;
        if (nullok || newsv) SvREFCNT_inc_simple_void(newsv);
        else newsv = newSV(0);
        auto old = *ptr;
        *ptr = newsv;
        SvREFCNT_dec(old);
        return *this;
    }
    KeyProxy& operator= (SV* v)        { return operator=(Scalar(v)); }
    KeyProxy& operator= (const Sv& v)  { return operator=(Scalar(v)); }
    KeyProxy& operator= (const Array&) = delete;
    KeyProxy& operator= (const Hash&)  = delete;
    KeyProxy& operator= (const Sub&)   = delete;
    KeyProxy& operator= (const Io&)    = delete;

    template >
    KeyProxy operator[] (T key) { return _geti(key); }
    KeyProxy operator[] (const panda::string_view& key);

private:
    SV** ptr;
    bool nullok;

    KeyProxy _geti (size_t key);
};

}