File Coverage

blib/lib/Module/Install/ManifestSkip.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch	0	6	0.0
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	29	41.3

use strict; use warnings;
package Module::Install::ManifestSkip;
our $VERSION = '0.24';

use base 'Module::Install::Base';

our $AUTHOR_ONLY = 1;

my $skip_file = "MANIFEST.SKIP";

sub manifest_skip {
    my $self = shift;
    return unless $self->is_admin;

    require Module::Manifest::Skip;

    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;