File Coverage

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

Criterion	Covered	Total	%
statement	2	2	100.0
branch	2	90	2.2
condition			n/a
subroutine			n/a
pod			n/a
total	4	92	4.3

#pragma once
#include
#include

namespace xs {

using CatchHandlerSimple = std::function;
using CatchHandler       = std::function;

void add_catch_handler (CatchHandlerSimple f);
void add_catch_handler (CatchHandler       f);

Sv _exc2sv (pTHX_ const Sub&);

template  static inline auto throw_guard (pTHX_ CV* context, F&& f) -> decltype(f()) {
    SV* exc;
    try { return f(); }
    catch (...) {
        auto tmp = xs::_exc2sv(aTHX_ context);
        if (tmp) exc = tmp.detach();
        else exc = newSVpvs("");
    }
    croak_sv(sv_2mortal(exc));
}

}