[catagits/Gitalist.git] / local-lib5 / lib / perl5 / Module / Install / Admin / WriteAll.pm

package Module::Install::Admin::WriteAll;

use strict;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.91';;
	@ISA     = qw{Module::Install::Base};
}

sub WriteAll {
	my ($self, %args) = @_;
	$self->load('Makefile');
	if ( $args{check_nmake} ) {
		$self->load($_) for qw(Makefile check_nmake can_run get_file);
	}
}

1;
Commit	Line	Data
3fea05b9	1	package Module::Install::Admin::WriteAll;
	2
	3	use strict;
	4	use Module::Install::Base;
	5
	6	use vars qw{$VERSION @ISA};
	7	BEGIN {
	8	$VERSION = '0.91';;
	9	@ISA = qw{Module::Install::Base};
	10	}
	11
	12	sub WriteAll {
	13	my ($self, %args) = @_;
	14	$self->load('Makefile');
	15	if ( $args{check_nmake} ) {
	16	$self->load($_) for qw(Makefile check_nmake can_run get_file);
	17	}
	18	}
	19
	20	1;