tracknumber => $tags->query('TRACKNUMBER'),
tracktotal => $tags->query('TRACKTOTAL'),
genre => $tags->query('GENRE'),
tracknumber => $tags->query('TRACKNUMBER'),
tracktotal => $tags->query('TRACKTOTAL'),
genre => $tags->query('GENRE'),
[ 'MP3::Info', \&mp3info, '.mp3' ],
[ 'Ogg::Vorbis::Header::PurePerl', \&vorbisinfo, '.ogg', '.oga' ],
[ 'MP4::Info', \&mp4info, '.mp4', '.aac', '.m4a' ],
[ 'MP3::Info', \&mp3info, '.mp3' ],
[ 'Ogg::Vorbis::Header::PurePerl', \&vorbisinfo, '.ogg', '.oga' ],
[ 'MP4::Info', \&mp4info, '.mp4', '.aac', '.m4a' ],
- warn 'No tags-reading module detected. Install one of the following modules: ' . join ', ', map { $_->[0] } @optional_modules;
+ carp 'No tags-reading module detected. Install one of the following modules: ' . join ', ', map { $_->[0] } @optional_modules;