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 channels { shift->{audiofile}->channels(); }
+sub bitrate { shift->{audiofile}->bitrate(); }
+sub samplerate { shift->{audiofile}->samplerate(@_); }
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