File Coverage

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

Criterion	Covered	Total	%
statement	11	15	73.3
branch	25	54	46.3
condition			n/a
subroutine			n/a
pod			n/a
total	36	69	52.1

#pragma once
#include
#include
#include
#include
#include

namespace xs {

class Backref {
public:
    mutable SV*  svobj;
    mutable bool zombie;
    mutable bool in_cdtor;

    template  static const Backref* get (T* var)                        { return panda::dyn_cast(var); }
    template  static const Backref* get (const panda::iptr& var)     { return panda::dyn_cast(var.get()); }
    template  static const Backref* get (const std::shared_ptr& var) { return panda::dyn_cast(var.get()); }

protected:
    Backref () : svobj(NULL), zombie(false), in_cdtor(false) {}

    void dtor () const {
        in_cdtor = true;
        if (!svobj) return;
        auto tmp = svobj;
        svobj = NULL;
        SvREFCNT_dec_NN(tmp);
    };

    virtual ~Backref () { if (!in_cdtor) _throw_no_dtor(); } // protect against forgetting calling the dtor()

private:
    static void _throw_no_dtor () {
        throw std::logic_error("~Backref panic: dtor() wasn't called - you must explicitly call Backref::dtor() or use make_backref()");
    }
};

template
class BackrefWrapper : public CLASS, public Backref {
    ~BackrefWrapper () override { Backref::dtor(); }
public:
    template  BackrefWrapper (Args&&... args) : CLASS(std::forward(args)...) {}
};

template  inline CLASS* make_backref (Args&&... args) {
     return new BackrefWrapper(std::forward(args)...);
}

}