Branch Coverage

lib/PDL/IO/Pnm.xs

Criterion	Covered	Total	%
branch	31	88	35.2

line	true	false	branch
46	27	0	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
	0	27	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
	0	0	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
	27	0	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
	27	0	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
	27	0	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
	0	27	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
	0	0	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
	27	0	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
	0	27	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
47	27	0	if (!((items == 5) || (items == 6)))
	0	27	if (!((items == 5) || (items == 6)))
57	27	0	if (im_SV) { im = PDL_CORE_(SvPDLV)(im_SV); } else im = PDL_XS_PERLINIT_initsv(im_SV);
	0	0	if (im_SV) { im = PDL_CORE_(SvPDLV)(im_SV); } else im = PDL_XS_PERLINIT_initsv(im_SV);
59	0	27	PDL_XS_RETURN(ST(0) = im_SV)
	0	0	PDL_XS_RETURN(ST(0) = im_SV)
	0	0	PDL_XS_RETURN(ST(0) = im_SV)
	0	0	PDL_XS_RETURN(ST(0) = im_SV)
	0	27	PDL_XS_RETURN(ST(0) = im_SV)
69	16	0	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
	0	16	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
	0	0	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
	16	0	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
	16	0	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
	16	0	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
	0	16	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
	0	0	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
	16	0	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
	0	16	PDL_XS_PREAMBLE((items == 6) ? 0 : 1);
70	16	0	if (!((items == 5) || (items == 6)))
	0	16	if (!((items == 5) || (items == 6)))
80	16	0	if (im_SV) { im = PDL_CORE_(SvPDLV)(im_SV); } else im = PDL_XS_PERLINIT_initsv(im_SV);
	0	0	if (im_SV) { im = PDL_CORE_(SvPDLV)(im_SV); } else im = PDL_XS_PERLINIT_initsv(im_SV);
82	0	16	PDL_XS_RETURN(ST(0) = im_SV)
	0	0	PDL_XS_RETURN(ST(0) = im_SV)
	0	0	PDL_XS_RETURN(ST(0) = im_SV)
	0	0	PDL_XS_RETURN(ST(0) = im_SV)
	0	16	PDL_XS_RETURN(ST(0) = im_SV)
103	15	0	if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV));
	0	15	if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV));
	0	0	if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV));
105	0	15	if (!CoreSV)
107	0	15	if (!(PDL = INT2PTR(Core*,SvIV( CoreSV )))) /* Core* value */
109	0	15	if (PDL->Version != PDL_CORE_VERSION)