/usr/local/CPAN/DBD-iPod/Makefile.PL

use lib 'lib';
use File::Spec::Functions;
use Package::Install;
my %sources = (); #put source.PL => 'description' pairs in here
my %mm_args = (
                  'NAME'      => 'DBD-iPod',
                  'VERSION'   => '0.01',
                  'PREREQ_PM' => {
                                   'DBI'               => 0.00,
                                   'Mac::iPod::GNUpod' => 1.00,
                                   'Package::Base'     => 0.01,
                                   'SQL::Statement'    => 1.09,
                                 },
                  'ABSTRACT'  => 'Connect to an iPod via DBI',
                  'AUTHOR'    => 'Allen Day <allenday@ucla.edu>',
               );

my $install = Package::Install->new(
  interactive => 1,
  sources     => %sources,
                                    );

$ENV{IPOD_ROOT} ||= '/mnt/ipod';
if(! -d catfile($ENV{IPOD_ROOT},'iPod_Control')){
  print "iPod not detected at $ENV{IPOD_ROOT}.  Please\n".
  "mount at /mnt/ipod, or set \$IPOD_ROOT to your mount\n".
  "location.  If you don't do this, all unit tests will be\n".
  "skipped.  Press <enter> to continue...\n\n";
  <>;
} else {
  print "iPod detected at $ENV{IPOD_ROOT}...\n";
}

$install->write_makefile(%mm_args);