1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
use strict; use warnings;
package Module::Compile::Opt;
# TODO; What is this module for?
# sub import {
# my ($class, @args) = @_;
# my $opts = $class->get_options(@args)
# if $class->can('get_options');
# $class->sanity_check($opts);
# require Module::Compile;
# require Module::Compile::Ext;
# Module::Compile::Ext->import(@{$opts->{ext}});
#
# # put coderef into @INC
# # Store PERL5OPT in .author
# # In Module::Compile, complain if PERL5OPT != .author/PERL5OPT
# }
sub sanity_check {
my $class = shift;
die unless -e 'inc' and -e 'Makefile.PL';
}
1;
|
