NAME
Audio::Tagger::Ogg - Perl module to handle audio metadata (ogg files)
VERSION
version 0.11
SYNOPSIS
Synopsis section
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.