use strict; # kwalitee, schmalitee... # buggy CPANTS wants even dumb doc placeholder modules to use strict... =head1 NAME Audio::M4P -- Perl QuickTime / MP4 / iTunes Music Store audio / video file tools =head1 DESCRIPTION M4P is a QuickTime protected audio file format. =head1 SYNOPSIS use Audio::M4P::QuickTime; my $mp4file = "file.m4p"; my $qt = new Audio::M4P::QuickTime(file => $mp4file); my $tags = $qt->GetMetaInfo; print "Artist is $tags->{ARTIST}\n" if $tags->{ARTIST}; use Audio::M4P::Decrypt; my $outfile = 'mydecodedfile'; my $deDRMS = new Audio::M4P::Decrypt; $deDRMS->DeDRMS($mp4file, $outfile); See also the individual pod documentation for Audio::M4P::QuickTime and Audio::M4P::Decrypt. =head1 AUTHOR William Herrera B. =head1 SUPPORT Questions, feature requests and bug reports should go to . =head1 COPYRIGHT =over 4 Copyright (c) 2003-2005 William Herrera. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1;