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
7 const OpusPictureTag* T_OPUS_PICTURE_TAG
8 OpusPictureTag* T_OPUS_PICTURE_TAG
11 # All three types are copies of T_PTROBJ, only difference being the class name
14 if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile\")) {
15 IV tmp = SvIV((SV*)SvRV($arg));
16 $var = INT2PTR($type,tmp);
19 Perl_croak_nocontext(\"%s: %s is not of type %s\",
20 ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
21 \"$var\", \"Audio::Opusfile\")
24 if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile::Head\")) {
25 IV tmp = SvIV((SV*)SvRV($arg));
26 $var = INT2PTR($type,tmp);
29 Perl_croak_nocontext(\"%s: %s is not of type %s\",
30 ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
31 \"$var\", \"Audio::Opusfile::Head\")
34 if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile::Tags\")) {
35 IV tmp = SvIV((SV*)SvRV($arg));
36 $var = INT2PTR($type,tmp);
39 Perl_croak_nocontext(\"%s: %s is not of type %s\",
40 ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
41 \"$var\", \"Audio::Opusfile::Tags\")
44 if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile::PictureTag\")) {
45 IV tmp = SvIV((SV*)SvRV($arg));
46 $var = INT2PTR($type,tmp);
49 Perl_croak_nocontext(\"%s: %s is not of type %s\",
50 ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
51 \"$var\", \"Audio::Opusfile::Tags\")
56 sv_setref_pv($arg, \"Audio::Opusfile\", (void*)$var);
59 sv_setref_pv($arg, \"Audio::Opusfile::Head\", (void*)$var);
62 sv_setref_pv($arg, \"Audio::Opusfile::Tags\", (void*)$var);
65 sv_setref_pv($arg, \"Audio::Opusfile::PictureTag\", (void*)$var);