NAME

Net::DAAP::DMAP::Pack - Write DMAP encoded data

SYNOPSIS

use Net::DAAP::DMAP qw( dmap_unpack );
use Net::DAAP::DMAP::Pack qw( dmap_pack );
my $data = '...';
is( dmap_pack( dmap_unpack( $data ) ), $data, "round trips" );

DESCRIPTION

Net::DAAP::DMAP::Pack contains a dmap_pack routine, which is strangely missing from Net::DAAP::DMAP, since its pod says:

=head1 NAME

Net::DAAP::DMAP - Perl module for reading and writing DAAP structures

Consult the Net::DAAP::DMAP documentation for an explanation of the data structure used by dmap_pack and dmap_unpack.

TODO

Fiddle with Net::DAAP::DMAP's default dictionary, since it doesn't know about new tags like aeSV, and Net::DAAP::Client doesn't download /content-codes

Allow the tag name to be used when packing, so you can write

dmap_pack([[ mlog => [[ mstt => 200 ], [ mlid => 42 ]] ]]);

rather than:

dmap_pack([[ 'dmap.loginresponse' => [
                [ 'dmap.status' =>  200 ],
                [ 'dmap.sessionid' => 42 ],
             ],
          ]]);

Which is somewhat tedious.

AUTHOR

Richard Clamp <richardc@unixbeard.net>

COPYRIGHT

Copyright 2004 Richard Clamp. All Rights Reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Net::DAAP::DMAP