#!/usr/bin/perl -w
# $Id: summary.pl 577 2002-11-14 07:44:44Z comdog $
use strict;

=head1 NAME

examples/summary.pl

=head1 SYNOPSIS

perl summary.pl /path/to/itunes/music/library

perl summary.pl ../mp3/"iTunes Music Library"

=head1 DESCRIPTION

This script is a short example of the Mac::iTunes module.
It pretty-prints a summary of your iTunes library.

=cut

use Mac::iTunes;

my $file = $ARGV[0];
die "file [$file] does not exist\n" unless -e $file;

my $itunes = Mac::iTunes->read( $file );
die unless ref $itunes;

my @playlists = $itunes->playlists;

foreach my $title ( @playlists )
	{
	print "\t$title\n";
	my $playlist = $itunes->get_playlist( $title );
	
	foreach my $item ( $playlist->items )
		{
		my $title  = $item->title;
		my $artist = $item->artist;
		
		print "\t\t$title, $artist\n";
		}
	}

=head1 SEE ALSO

L<Mac::iTunes>

=head1 AUTHOR

Copyright 2002, brian d foy <bdfoy@cpan.org>

You may redistribute this under the same terms as Perl.

=cut