view release on metacpan or  search on metacpan

lib/Mac/iTunes/Preferences.pm  view on Meta::CPAN

$VERSION = '1.23';

=head1 NAME

Mac::iTunes::Preferences - interact with the iTunes Preferences

=head1 SYNOPSIS

	use Mac::iTunes;

	$prefs = Mac::iTunes->preferences;

=head1 DESCRIPTION

**This module is unmaintained**

=cut

use Mac::PropertyList;

sub _default_prefs
	{
	return;
	}

=over 4

=item parse_file( FILENAME )

=cut

sub parse_file
	{
	my $class = shift;
	my $filename = shift || _default_prefs;

	open my($fh), $filename or return;
	my $string = do { local $/; <$fh> };
	close $fh;

	$class->parse( $string );
	}

=item parse( STRING )

t/preferences.t  view on Meta::CPAN

use Test::More tests => 2;

use Mac::iTunes;
use Mac::iTunes::Preferences;

my $file = "plists/com.apple.iTunes.plist";
my $prefs;

isa_ok( $prefs = Mac::iTunes::Preferences->parse_file( $file ), 
	'Mac::iTunes::Preferences' );

isa_ok( $prefs = Mac::iTunes->preferences( $file ), 
	'Mac::iTunes::Preferences' );