TYPEMAP DNS__Unbound__Context* DNS_UNBOUND_T INPUT DNS_UNBOUND_T if (SvROK($arg) && sv_derived_from($arg, \"${Package}\")) { $var = my_get_blessedstruct_ptr($arg); } else { const char* refstr = SvROK($arg) ? \"\" : SvOK($arg) ? \"scalar \" : \"undef\"; Perl_croak_nocontext(\"%s: Expected %s to be of type %s; got %s%\" SVf \" instead\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\", \"${Package}\", refstr, $arg ); }