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	9	90	10.0
condition			n/a
subroutine			n/a
pod			n/a
total	11	92	11.9

#pragma once
#include
#include
#include

namespace xs {

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

using ExceptionProcessor       = std::function;
using ExceptionProcessorSimple = std::function;

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

void add_exception_processor(ExceptionProcessor       f);
void add_exception_processor(ExceptionProcessorSimple f);

Sv _exc2sv (const Sub&);

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

}