Changeset 31 in flacrip for trunk/lib

Timestamp:

11/26/14 22:50:16 (10 years ago)

Author:

peter

Message:

• mbz uses DiscFlacFile to read the discid from a FLAC file
• remove the TRACKS array from the returned info hash from get_musicbrainz_info()
• Tracks::read_flac() can take an Audio::FLAC::Header as its argument instead of a filename

Location:

trunk/lib

Files:

• MusicBrainz.pm (modified) (1 diff)
• Tracks.pm (modified) (1 diff)

trunk/lib/MusicBrainz.pm

@@ -108 +108 @@
         @info{"$prefix.ARTIST", "$prefix.ARTISTSORT"} = get_artist_credits($xpath, $recording);
 
-        $info{TRACKS}[$tracknum]{TITLE} = $info{"$prefix.TITLE"};
-        $info{TRACKS}[$tracknum]{ARTIST} = $info{"$prefix.ARTIST"};
-        $info{TRACKS}[$tracknum]{ARTISTSORT} = $info{"$prefix.ARTISTSORT"};
-
         #my $uri = URI->new("http://musicbrainz.org/ws/2/recording/$recording_mbid");
         #$uri->query_form(inc => 'artists');

trunk/lib/Tracks.pm

@@ -120 +120 @@
     my ($self, $file) = @_;
 
-    my $flac = Audio::FLAC::Header->new($file);
+    my $flac = ref $file ? $file : Audio::FLAC::Header->new($file);
     my $cuesheet_lines = $flac->cuesheet;
     my $CUE = IO::Lines->new($cuesheet_lines);