Mp3: actually parse genre tag

diff --git a/lib/ID3FS/File/Mp3.pm b/lib/ID3FS/File/Mp3.pm
index 8f2dd11..f856a5d 100644 (file)
--- a/lib/ID3FS/File/Mp3.pm
+++ b/lib/ID3FS/File/Mp3.pm
@@ -63,6 +63,21 @@ sub v1genre
 sub tags
 {
     my $self=shift;
+    return({}) unless(exists($self->{mp3}->{ID3v2}) && defined($self->{mp3}->{ID3v2}));
+    my $genre=$self->{mp3}->{ID3v2}->genre();
+    return({}) unless(defined($genre) && length($genre));
+    my @tags=split(/\s*,\s*/, $genre);
+    for my $tag (@tags)
+    {
+       if($tag=~/(.*)\/(.*)/)
+       {
+           $self->{tags}->{$1}=$2;
+       }
+       else
+       {
+           $self->{tags}->{$tag}=undef;
+       }
+    }
     return $self->{tags};
 }