|
use vars qw{$VERSION @ISA $ISCORE} ; BEGIN {
$VERSION = '0.91' ;;
@ISA = qw{Module::Install::Base} ;
$ISCORE = 1;
}
sub WriteAll {
my $self = shift ;
my %args = (
meta => 1,
sign => 0,
inline => 0,
check_nmake => 1,
@_ ,
);
$self ->sign(1) if $args {sign};
$self ->admin->WriteAll( %args ) if $self ->is_admin;
$self ->check_nmake if $args {check_nmake};
unless ( $self ->makemaker_args->{PL_FILES} ) {
$self ->makemaker_args( PL_FILES => {} );
}
$self ->realclean_files( 'MYMETA.yml' );
if ( $args {inline} ) {
$self ->Inline-> write ;
} else {
$self ->Makefile-> write ;
}
if ( $args {meta} ) {
$self ->Meta-> write ;
}
if ( $ENV {X_MYMETA} ) {
if ( $ENV {X_MYMETA} eq 'JSON' ) {
$self ->Meta->write_mymeta_json;
} else {
$self ->Meta->write_mymeta_yaml;
}
}
return 1;
}
1;
|