SYNOPSIS
use Audio::WMA;
my $wma = Audio::WMA->new($file);
my $info = $wma->info();
foreach (keys %$info) {
print "$_: $info->{$_}\n";
}
my $tags = $wma->tags();
foreach (keys %$tags) {
print "$_: $tags->{$_}\n";
}
DESCRIPTION
This module implements access to metadata contained in WMA files.METHODS
-
new( $file )
Create a new Audio::WMA instance from the data in $file
-
info( )
Get the audio data information in the form of a hash ref.
-
tags( )
Get the metadata / tag information in the form of a hash ref.
-
stream( )
Get the current ASF stream.
-
parseObject( $asf )
Parse a standalone ASF object.
-
setDebug( 0 | 1 )
Toggle debugging.
-
setConvertTagsToUTF8( 0 | 1 )
Toggle Encoding metadata tags as UTF-8
Toggle debugging.
AUTHOR
Dan Sully, <daniel | at | cpan.org>COPYRIGHT AND LICENSE
Copyright 2003-2008 by Dan Sully & Logitech.This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.