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	6	6	100.0
branch	36	240	15.0
condition			n/a
subroutine			n/a
pod			n/a
total	42	246	17.0

line	stmt	bran	code
1			#pragma once
2			#include
3			#include
4			#include
5
6			namespace xs {
7
8			using CatchHandlerSimple = std::function;
9			using CatchHandler = std::function;
10
11			using ExceptionProcessor = std::function;
12			using ExceptionProcessorSimple = std::function;
13
14			void add_catch_handler (CatchHandlerSimple f);
15			void add_catch_handler (CatchHandler f);
16
17			void add_exception_processor(ExceptionProcessor f);
18			void add_exception_processor(ExceptionProcessorSimple f);
19
20			Sv _exc2sv (const Sub&);
21
22	86		template static inline auto throw_guard (CV* context, F&& f) -> decltype(f()) {
23			SV* exc;
24	86	50	try { return f(); }
		50
		100
		50
		50
		50
		50
		50
		100
		50
		50
		50
		50
		100
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
25	6		catch (...) {
26	6	0	auto tmp = xs::_exc2sv(context);
		0
		0
		0
		50
		50
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		50
		50
		0
		0
		0
		0
		0
		0
		0
		0
		50
		50
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
27	3	0	if (tmp) exc = tmp.detach();
		0
		50
		0
		0
		0
		0
		0
		50
		0
		0
		0
		0
		50
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
28			else exc = newSVpvs("");
29			}
30	3		croak_sv(sv_2mortal(exc));
31			}
32
33			}