1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
#line 1
##
# name: Module::Install::ManifestSkip
# abstract: Generate a MANIFEST.SKIP file
# author: Ingy döt Net <ingy@cpan.org>
# license: perl
# copyright: 2010, 2011
# see:
# - Module::Manifest::Skip
package Module::Install::ManifestSkip;
use 5.008003;
use strict;
use warnings;
use base 'Module::Install::Base';
my $requires = "
use Module::Manifest::Skip 0.10 ();
";
our $VERSION = '0.19';
our $AUTHOR_ONLY = 1;
my $skip_file = "MANIFEST.SKIP";
sub manifest_skip {
my $self = shift;
return unless $self->is_admin;
eval $requires; die $@ if $@;
print "Writing $skip_file\n";
open OUT, '>', $skip_file
or die "Can't open $skip_file for output: $!";;
print OUT Module::Manifest::Skip->new->text;
close OUT;
$self->clean_files('MANIFEST');
$self->clean_files($skip_file)
if grep /^clean$/, @_;
}
1;
|
