1 const OggOpusFile* T_OGG_OPUS_FILE
2 OggOpusFile* T_OGG_OPUS_FILE
3 const OpusHead* T_OPUS_HEAD
5 const OpusTags* T_OPUS_TAGS
9 # All three types are copies of T_PTROBJ, only difference being the class name
12 if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile\")) {
13 IV tmp = SvIV((SV*)SvRV($arg));
14 $var = INT2PTR($type,tmp);
17 Perl_croak_nocontext(\"%s: %s is not of type %s\",
18 ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
19 \"$var\", \"Audio::Opusfile\")
22 if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile::Head\")) {
23 IV tmp = SvIV((SV*)SvRV($arg));
24 $var = INT2PTR($type,tmp);
27 Perl_croak_nocontext(\"%s: %s is not of type %s\",
28 ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
29 \"$var\", \"Audio::Opusfile::Head\")
32 if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile::Tags\")) {
33 IV tmp = SvIV((SV*)SvRV($arg));
34 $var = INT2PTR($type,tmp);
37 Perl_croak_nocontext(\"%s: %s is not of type %s\",
38 ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
39 \"$var\", \"Audio::Opusfile::Tags\")
44 sv_setref_pv($arg, \"Audio::Opusfile\", (void*)$var);
47 sv_setref_pv($arg, \"Audio::Opusfile::Head\", (void*)$var);
50 sv_setref_pv($arg, \"Audio::Opusfile::Tags\", (void*)$var);