sub delete_all { shift->{audiofile}->delete_all(); }
sub delete_genre { shift->{audiofile}->delete_genre(); }
sub delete_tags { shift->{audiofile}->delete_tags(@_); }
+sub channels { shift->{audiofile}->channels(); }
+sub bitrate { shift->{audiofile}->bitrate(); }
+sub samplerate { shift->{audiofile}->samplerate(@_); }
sub year
{
return $text;
}
+# This location for these subs is pretty much arbitrary
+sub uniq
+{
+ # class method
+ shift if(ref($_[0]) eq "ID3FS::AudioFile");
+ my (@things)=@_;
+ my %hash=();
+ @hash{@things}=();
+ return(sort keys(%hash));
+}
+
+sub list_remove
+{
+ my($remove, $list)=@_;
+ return(()) unless($list && @$list);
+ my @list=@$list;
+ for my $tag (@$remove)
+ {
+ @list=grep { $_ ne $tag; } @list;
+ }
+ return(@list);
+}
+
1;