Changeset 40 in mp3-find for trunk/lib/MP3/Find/Filesystem.pm

Timestamp:

06/07/11 23:10:52 (13 years ago)

Author:

peter

Message:

Reversed accidental commit of extra changes in r39

File:

• trunk/lib/MP3/Find/Filesystem.pm (modified) (7 diffs)

trunk/lib/MP3/Find/Filesystem.pm

@@ -12 +12 @@
 use MP3::Find::Util qw(get_mp3_metadata);
 
-# XXX: this may or may not lead to faster searches
 eval {
     require Sort::Key;
@@ -19 +18 @@
 };
 my $USE_SORT_KEY = $@ ? 0 : 1;
+
+
+eval { require MP3::Tag };
+my $CAN_USE_ID3V2 = $@ ? 0 : 1;
 
 use_winamp_genres();
@@ -49 +52 @@
         }
     }
-
+    
+    if ($$options{use_id3v2} and not $CAN_USE_ID3V2) {
+        # they want to use ID3v2, but don't have MP3::Tag
+        warn "MP3::Tag is required to search ID3v2 tags\n";
+    }
+        
     # run the actual find
     my @results;
@@ -94 +102 @@
     my $mp3 = get_mp3_metadata({
         filename  => $filename,
+        use_id3v2 => $options->{use_id3v2},
     });
 
@@ -130 +139 @@
 L<File::Find>, L<MP3::Info>, L<Scalar::Util>
 
+L<MP3::Tag> is also needed if you want to search using ID3v2 tags.
+
 =head1 DESCRIPTION
 
 This module implements the C<search> method from L<MP3::Find::Base>
 using a L<File::Find> based search of the local filesystem.
-
-In addition to just the basic ID3v1 tags, you can search for files by their
-ID3v2 data, using the four-character frame names.  This isn't very useful if
-you are just search by artist or title, but if, for example, you have made use
-of the C<TOPE> ("Orignal Performer") frame, you could search for all the cover
-songs in your collection:
-
-    $finder->find_mp3s(query => { tope => '.' });
-
-As with the basic query keys, ID3v2 query keys are converted to uppercase
-internally.
 
 =head2 Special Options
@@ -152 +152 @@
 =item C<exclude_path>
 
-Scalar or arrayref; any file whose name matches any of these paths will be
-skipped.
+Scalar or arrayref; any file whose name matches any of these paths
+will be skipped.
+
+=item C<use_id3v2>
+
+Boolean, defaults to false. If set to true, MP3::Find::Filesystem will
+use L<MP3::Tag> to get the ID3v2 tag for each file. You can then search
+for files by their ID3v2 data, using the four-character frame names. 
+This isn't very useful if you are just search by artist or title, but if,
+for example, you have made use of the C<TOPE> ("Orignal Performer") frame,
+you could search for all the cover songs in your collection:
+
+    $finder->find_mp3s(query => { tope => '.' });
+
+As with the basic query keys, ID3v2 query keys are converted to uppercase
+internally.
 
 =back
@@ -167 +181 @@
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2006-2008 by Peter Eichman. All rights reserved.
+Copyright (c) 2006 by Peter Eichman. All rights reserved.
 
 This program is free software; you can redistribute it and/or