NAME
Audio::Tagger::Ogg - Perl module to handle audio metadata (ogg files)
VERSION
version 0.07
SYNOPSIS
Synopsis section
use feature 'say';
use Audio::Tagger::Ogg;
my $tagger = Audio::Tagger::Ogg -> new("/path/to/file.ogg");
# print the song title
say $tagger -> title;
# print the song artist
say $tagger -> artist;
# change and print the song album
say $tagger -> album("Awesome Album");
# save the modifications to disk
$tagger -> save or
die("Cannot write to disk");METHODS
new( $filename )
Create an Audio::Tagger::Ogg object given a file name.
save( )
Save the file to disk. Returns true on success.
title( [ $title ] )
Return the title tag of the given Audio::Tagger::Ogg object, if called with no arguments, otherwise set the title tag to $title.
artist( [ $artist ] )
Return the artist tag of the given Audio::Tagger::Ogg object, if called with no arguments, otherwise set the artist tag to $artist.
album( [ $album ] )
Return the album tag of the given Audio::Tagger::Ogg object, if called with no arguments, otherwise set the album tag to $album.
comment( [ $comment ] )
Return the comment tag of the given Audio::Tagger::Ogg object, if called with no arguments, otherwise set the comment tag to $comment.
genre( [ $genre ] )
Return the genre tag of the given Audio::Tagger::Ogg object, if called with no arguments, otherwise set the genre tag to $genre.
year( [ $year ] )
Return the year tag of the given Audio::Tagger::Ogg object, if called with no arguments, otherwise set the year tag to $year.
track( [ $track ] )
Return the track tag of the given Audio::Tagger::Ogg object, if called with no arguments, otherwise set the track tag to $track.
bitrate( )
Return the bitrate of the given Audio::Tagger::Ogg object.
samplerate( )
Return the sample rate of the given Audio::Tagger::Ogg object.
channels( )
Return the number of channels of the given Audio::Tagger::Ogg object.
AUTHOR
Alessandro Ghedini <alexbio@cpan.org>
LICENSE AND COPYRIGHT
Copyright 2011 Alessandro Ghedini.
This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.