mkpath join('/', $project, 'lib', @parts[0..$#parts-1]);
+my $package_name = join('::', @parts);
+
open my $mpl_main, '>', "${project}/Makefile.PL"
or die "couldn't open Makefile.PL: $!";
-print $mpl_main sprintf(<<'END', $project, $lib_file);
+print $mpl_main sprintf(<<'END', $package_name, $lib_file);
use strict;
use warnings FATAL => 'all';
use ExtUtils::MakeMaker;
-(do 'maint/Makefile.PL.include' or die $@) unless -f 'META.yml';
+(do './maint/Makefile.PL.include' or die $@) unless -f 'META.yml';
WriteMakefile(
NAME => '%s',
open my $pm, '>', "${project}/${lib_file}"
or die "Couldn't open .pm file: $!";
-my $package_name = join('::', @parts);
-
my $year = 1900+(localtime)[5];
my $mod_text = sprintf(<<'END', $package_name, $package_name, $author, $year, $package_name);
Copyright (c) %s the %s L</AUTHOR> and L</CONTRIBUTORS>
as listed above.
-
+
=head1 LICENSE
-
+
This library is free software and may be distributed under the same terms
as perl itself.
END