Branch Coverage

perl_math_int64.c

Criterion	Covered	Total	%
branch	25	138	18.1

line	true	false	branch
44	35	0	if (SvTRUE(ERRSV)) return 0;
	0	35	if (SvTRUE(ERRSV)) return 0;
47	0	35	if (!math_int64_c_api_hash) {
48	0	0	sv_setpv(ERRSV, "Unable to load Math::Int64 C API");
49	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
54	0	35	if (!svp) svp = hv_fetch(math_int64_c_api_hash, "version", 7, 1);
55	35	0	if (!svp || !*svp) {
	0	35	if (!svp || !*svp) {
56	0	0	sv_setpv(ERRSV, "Unable to retrieve C API version for Math::Int64");
57	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
63	0	35	if (!svp) svp = hv_fetch(math_int64_c_api_hash, "version", 7, 1);
64	35	0	if (!svp || !*svp) {
	0	35	if (!svp || !*svp) {
65	0	0	sv_setpv(ERRSV, "Unable to retrieve C API version for Math::Int64");
66	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
71	35	0	if ((required_version < math_int64_c_api_min_version) ||
72	0	35	(required_version > math_int64_c_api_max_version)) {
73	0	0	sv_setpvf(ERRSV,
79	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
84	35	0	if (!svp || !*svp) {
	0	35	if (!svp || !*svp) {
85	0	0	sv_setpv(ERRSV, "Unable to fetch pointer 'SvI64' C function from Math::Int64");
86	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
91	35	0	if (!svp || !*svp) {
	0	35	if (!svp || !*svp) {
92	0	0	sv_setpv(ERRSV, "Unable to fetch pointer 'SvI64OK' C function from Math::Int64");
93	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
98	35	0	if (!svp || !*svp) {
	0	35	if (!svp || !*svp) {
99	0	0	sv_setpv(ERRSV, "Unable to fetch pointer 'SvU64' C function from Math::Int64");
100	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
105	35	0	if (!svp || !*svp) {
	0	35	if (!svp || !*svp) {
106	0	0	sv_setpv(ERRSV, "Unable to fetch pointer 'SvU64OK' C function from Math::Int64");
107	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
112	35	0	if (!svp || !*svp) {
	0	35	if (!svp || !*svp) {
113	0	0	sv_setpv(ERRSV, "Unable to fetch pointer 'newSVi64' C function from Math::Int64");
114	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
119	35	0	if (!svp || !*svp) {
	0	35	if (!svp || !*svp) {
120	0	0	sv_setpv(ERRSV, "Unable to fetch pointer 'newSVu64' C function from Math::Int64");
121	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
126	35	0	if (!svp || !*svp) {
	0	35	if (!svp || !*svp) {
127	0	0	sv_setpv(ERRSV, "Unable to fetch pointer 'randU64' C function from Math::Int64");
128	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);
	0	0	SvSETMAGIC(ERRSV);