-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
5 changed files
with
125 additions
and
8 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,111 @@ | ||
package WordPress::Backups; | ||
use strict; | ||
use warnings; | ||
|
||
=encoding utf8 | ||
|
||
=head1 The build file for WordPress::Backups | ||
|
||
This build file is a modulino; it works as both a build script and | ||
a module. | ||
|
||
To build the distribution, run this file normally: | ||
|
||
% perl Makefile.PL | ||
|
||
But, it's more interesting than that. You can load it with C<require> | ||
and call C<arguments> to get the data structure it passes to | ||
C<WriteMakefile>: | ||
|
||
my $package = require '/path/to/Makefile.PL'; | ||
my $arguments = $package->arguments; | ||
|
||
Note that C<require>-ing a file makes an entry in C<%INC> for exactly | ||
that name. If you try to C<require> another file with the same name, | ||
even from a different path, C<require> thinks it has already loaded | ||
the file. As such, I recommend you always require the full path to the | ||
file. | ||
|
||
The return value of the C<require> is a package name (in this case, | ||
the name of the main module. Use that to call the C<arguments> method. | ||
|
||
Even if this distribution needs a higher version of Perl, this bit | ||
only needs v5.8. You can play with the data structure with a primitive | ||
Perl. | ||
|
||
=cut | ||
|
||
use File::Spec::Functions qw(catfile); | ||
|
||
my $module = __PACKAGE__; | ||
( my $dist = $module ) =~ s/::/-/g; | ||
|
||
my $github = 'https://github.com/briandfoy/wordpress-backups'; | ||
my $main_file = catfile( 'lib', split /::/, "$module.pm" ); | ||
|
||
my %WriteMakefile = ( | ||
'MIN_PERL_VERSION' => '5.014', | ||
|
||
'NAME' => $module, | ||
'ABSTRACT_FROM' => $main_file, | ||
'VERSION_FROM' => $main_file, | ||
'LICENSE' => 'artistic_2', | ||
'AUTHOR' => 'brian d foy <bdfoy@cpan.org>', | ||
|
||
'CONFIGURE_REQUIRES' => { | ||
'ExtUtils::MakeMaker' => '6.64', | ||
'File::Spec::Functions' => '0', | ||
}, | ||
|
||
'BUILD_REQUIRES' => { | ||
}, | ||
|
||
'TEST_REQUIRES' => { | ||
'Test::More' => '1', | ||
}, | ||
|
||
'PREREQ_PM' => { | ||
'File::Spec::Functions' => '0', | ||
}, | ||
|
||
'META_MERGE' => { | ||
'meta-spec' => { version => 2 }, | ||
resources => { | ||
repository => { | ||
type => 'git', | ||
url => "$github.git", | ||
web => $github, | ||
}, | ||
bugtracker => { | ||
web => "$github/issues", | ||
}, | ||
homepage => $github, | ||
}, | ||
}, | ||
|
||
clean => { FILES => "$dist-*" }, | ||
); | ||
|
||
sub arguments { \%WriteMakefile } | ||
|
||
do_it() unless caller; | ||
sub do_it { | ||
require File::Spec; | ||
my $MM ='ExtUtils::MakeMaker'; | ||
my $MM_version = | ||
eval{ "$MM " . $WriteMakefile{'CONFIGURE_REQUIRES'}{'ExtUtils::MakeMaker'} } | ||
|| | ||
"$MM 6.64"; | ||
eval "use $MM_version; 1" or die "Could not load $MM_version: $@"; | ||
eval "use Test::Manifest 1.21" | ||
if -e File::Spec->catfile( qw(t test_manifest) ); | ||
|
||
my $arguments = arguments(); | ||
my $minimum_perl = $arguments->{MIN_PERL_VERSION} || '5.008'; | ||
eval "require $minimum_perl;" or die $@; | ||
|
||
WriteMakefile( %$arguments ); | ||
} | ||
|
||
no warnings; | ||
__PACKAGE__; |