# $File: //depot/cpan/Module-Install/lib/Module/Install/Admin/WriteAll.pm $ $Author: autrijus $
# $Revision: #4 $ $Change: 1821 $ $DateTime: 2003/12/14 21:07:46 $

package Module::Install::Admin::WriteAll;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

sub WriteAll {
    my ($self, %args) = @_;

    if (-e 'Makefile.PL') {
	$self->load('Makefile');
	if ($args{check_nmake}) {
	    $self->load($_) for qw(Makefile check_nmake can_run get_file);
	}
    }

    if (-e 'Build.PL') {
	$self->load('Build');
	if ($self->sign and !-e 'MANIFEST.SKIP') {
	    local *FH;
	    open FH, '>MANIFEST.SKIP' or die $!;
	    print FH << '.';
#defaults
^Makefile$
^blib/
^pm_to_blib$
^blibdirs$
^Build$
^_build/
.
	    close FH;
	    open FH, '>>MANIFEST' or die $!;
	    print FH "MANIFEST.SKIP";
	    close FH;
	}
    }
}

1;