sub delete_comment { shift->{audiofile}->delete_comment(); }
sub delete_all { shift->{audiofile}->delete_all(); }
sub delete_genre { shift->{audiofile}->delete_genre(); }
-sub delete_tags { shift->{audiofile}->delete_tags(); }
+sub delete_tags { shift->{audiofile}->delete_tags(@_); }
sub year
{
sub add_tags
{
my($self, $tags)=@_;
- die("FIXME: implement add_tags()\n");
+ my @tags=split(/\s*,\s*/, $tags);
+ $self->{audiofile}->add_tags(@tags);
}
sub tags