NAME
Mac::iTunes::Library::Playlist - Perl extension for representing a playlist (list of items by Track ID) within an iTunes library.
SYNOPSIS
use Mac::iTunes::Library::Playlist;
# Let's create a few simple items
my @items = (
Mac::iTunes::Library::Item->new('Track ID' => 3),
Mac::iTunes::Library::Item->new('Track ID' => 4),
);
# Create a playlist
my $smartInfo =<< 'EOF';
AQEAAwAAAAIAAAAZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAA==
EOF
my $smartCriteria =<< 'EOF';
U0xzdAABAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABkAAAABAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABEAAAAAAAAAGQAAAAAAAAAAAAAAAAAAAAB
AAAAAAAAAGQAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAA=
EOF
my $playlist = Mac::iTunes::Library::Playlist->new(
'Name' => '5 Stars',
'Playlist ID' => '10073',
'Playlist Persistent ID' => '2E2D1396AF1DED73',
'All Items' => 'true',
'Smart Info' => $smartInfo,
'Smart Criteria' => $smartCriteria,
'Playlist Items' => @items,
);
# Add another item to that playlist
my $item = Mac::iTunes::Library::Item->new( 'Track ID' => 7 );
$playlist->addItem( $item );
# Get all of the items in the playlist
my @items = $playlist->items();
# Get an item by it's ID
$item = $playlist->item(3);DESCRIPTION
A data structure for representing a playlist within an iTunes library. Use this along with Mac::iTunes::Library to create an iTunes library from which other information can be gleaned.
EXPORT
None by default.
METHODS
new()
Creates a new Mac::iTunes::Playlist object that can store all of the data of an iTunes library playlist.
my $playlist = Mac::iTunes::Playlist->new();The constructor can also be called with any number of attributes defined in a hash:
my $smartInfo =<< 'EOF';
AQEAAwAAAAIAAAAZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAA==
EOF
my $smartCriteria =<< 'EOF';
U0xzdAABAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABkAAAABAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABEAAAAAAAAAGQAAAAAAAAAAAAAAAAAAAAB
AAAAAAAAAGQAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAA=
EOF
# A few simple items
my @items = (
Mac::iTunes::Library::Item->new('Track ID' => 2),
Mac::iTunes::Library::Item->new('Track ID' => 3),
Mac::iTunes::Library::Item->new('Track ID' => 4),
);
my $playlist = Mac::iTunes::Playlist->new(
'Name' => '5 Stars',
'Playlist ID' => '10073',
'Playlist Persistent ID' => '2E2D1396AF1DED73',
'All Items' => 'true',
'Smart Info' => $smartInfo,
'Smart Criteria' => $smartCriteria,
'Playlist Items' => @items,
);name( name )
Get/set the name attribute for this playlist.
playlistID( id )
Get/set the Playlist ID attribute for this playlist.
playlistPersistenID( id )
Get/set the Playlist Persistent ID attribute for this playlist.
allItems( 0|1 )
Get/set the All Items attribute for this playlist.
smartInfo( smartInfo )
Get/set the Smart Info attribute for this playlist.
smartCriteria( smartInfo )
Get/set the Smart Criteria attribute for this playlist.
num()
Get the number of elements in this playlist.
addItem( Mac::iTunes::Library::Item )
Add an item to this playlist; duplicates are allowed
addItems( Mac::iTunes::Library::Item )
Add an array of items to this playlist; duplicates are allowed
items()
Get an array of the items in the playlist.
item( trackID )
Get an item by it's trackID
SEE ALSO
Mac::iTunes::Library, Mac::iTunes::Library::Item
AUTHOR
Drew Stephens <drew@dinomite.net>, http://dinomite.net
CONTRIBUTORS
Mark Grimes <mgrimes@cpan.org>, http://www.peculiarities.com
SOURCE REPOSITORY
http://mac-itunes.googlecode.com
SVN INFO
$Revision: 78 $ $Date: 2009-12-30 10:33:01 -0700 (Wed, 30 Dec 2009) $ $Author: drewgstephens $
COPYRIGHT AND LICENSE
Copyright (C) 2007-2008 by Drew Stephens
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.