char *name = SvPV_nolen(ST(1)); ST(0) = (strEQ(name, "crlf") || strEQ(name, "raw")) ? &PL_sv_yes : &PL_sv_undef;
STRLEN len = 0; char *name = SvPV(ST(1), len); bool load = (items > 2) ? SvTRUE(ST(2)) : 0; PerlIO_funcs *layer = PerlIO_find_layer(aTHX_ name, len, load); ST(0) = (layer) ? sv_2mortal(PerlIO_tab_sv(aTHX_ layer)) : &PL_sv_undef;
XS(XS_PerlIO__Layer__find){    dXSARGS;    if (items < 2)	Perl_croak(aTHX_ "Usage class->find(name[,load])");    else {	char *name = SvPV_nolen(ST(1));	ST(0) = (strEQ(name, "crlf")		 || strEQ(name, "raw")) ? &PL_sv_yes : &PL_sv_undef;	XSRETURN(1);    }}