NAME

       Audio::WMA - Perl extension for reading WMA/ASF Metadata

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.

SEE ALSO

       Audio::FLAC::Header, <http://getid3.sf.net/>

       http://github.com/dsully/perl-audio/tree/master/Audio-WMA

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.