-const OggOpusFile* T_OGG_OPUS_FILE
- OggOpusFile* T_OGG_OPUS_FILE
-const OpusHead* T_OPUS_HEAD
- OpusHead* T_OPUS_HEAD
-const OpusTags* T_OPUS_TAGS
- OpusTags* T_OPUS_TAGS
+const OggOpusFile* T_OGG_OPUS_FILE
+ OggOpusFile* T_OGG_OPUS_FILE
+const OpusHead* T_OPUS_HEAD
+ OpusHead* T_OPUS_HEAD
+const OpusTags* T_OPUS_TAGS
+ OpusTags* T_OPUS_TAGS
+const OpusPictureTag* T_OPUS_PICTURE_TAG
+ OpusPictureTag* T_OPUS_PICTURE_TAG
INPUT
# All three types are copies of T_PTROBJ, only difference being the class name
${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
\"$var\", \"Audio::Opusfile::Tags\")
+T_OPUS_PICTURE_TAG
+ if (SvROK($arg) && sv_derived_from($arg, \"Audio::Opusfile::PictureTag\")) {
+ IV tmp = SvIV((SV*)SvRV($arg));
+ $var = INT2PTR($type,tmp);
+ }
+ else
+ Perl_croak_nocontext(\"%s: %s is not of type %s\",
+ ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+ \"$var\", \"Audio::Opusfile::Tags\")
+
OUTPUT
T_OGG_OPUS_FILE
T_OPUS_TAGS
sv_setref_pv($arg, \"Audio::Opusfile::Tags\", (void*)$var);
+
+T_OPUS_PICTURE_TAG
+ sv_setref_pv($arg, \"Audio::Opusfile::PictureTag\", (void*)$var);