use ExtUtils::MakeMaker;
my $module = 'Calendar::Schedule';
my $name = 'Schedule.pm';
(my $dir = $module) =~ s/::/-/g;
WriteMakefile (
'NAME' => $module,
'VERSION_FROM' => $name, # finds $VERSION
'dist' => { COMPRESS=>"gzip",
SUFFIX=>"gz",
PREOP=>('starfish README; '.
"cp -f README $dir-\$(VERSION); "
),
},
'clean' => {FILES => "tmp* testfiles/tmp1 Calendar *~ t/tmp1"},
'PREREQ_PM' => {
# Foo::Ey => '1.00',
},
'PL_FILES' => {},
($] >= 5.005 ? ## Add these new keywords supported since 5.005
(ABSTRACT_FROM => $name, # retrieve abstract from module
AUTHOR => 'Vlado Keselj www.cs.dal.ca/~vkeselj') :
()
),
);
open(M, ">>Makefile") or die;
if ( -f 'priv.make' ) { print M getfile('priv.make') }
close(M);
sub getfile($) {
my $f = shift;
local *F;
open(F, "<$f") or die "getfile:cannot open $f:$!";
my @r = <F>;
close(F);
return wantarray ? @r : join ('', @r);
}