method nth_tag_name (Int() $index) is also<nth-tag-name> {
    my guint $i = $index;

    gst_tag_list_nth_tag_name($!tl, $i);
  }

  proto method peek_string_index (|)
      is also<peek-string-index>
  { * }

  multi method peek_string_index (Str() $tag, Int() $index, :$all = False) {
    samewith($tag, $index, $, :$all);
  }
  multi peek_string_index (
    Str() $tag,
    Int() $index,
    $value is rw,
    :$all = False
  ) {
    my guint $i = $index;
    my $sa = CArray[Str].new;
    $sa[0] = Str;
    » my $rc = gst_tag_list_peek_string_index($!tl, $tag, $i, $sa);
    ($value) = ppr($sa);
    $all.not ?? $value !! ($value, $rc);
  }

  method remove_tag (Str() $tag) is also<remove-tag> {
    gst_tag_list_remove_tag($!tl, $tag);
  }

  method to_string
    is also<
      to-string
      Str
    >
  {
    gst_tag_list_to_string($!tl);
  }