diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Module/Build/ConfigData.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/Module/Build/ConfigData.pm | 220 |
1 files changed, 220 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Module/Build/ConfigData.pm b/Master/tlpkg/tlperl/lib/Module/Build/ConfigData.pm new file mode 100644 index 00000000000..15114ee072b --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Module/Build/ConfigData.pm @@ -0,0 +1,220 @@ +package Module::Build::ConfigData; +use strict; +my $arrayref = eval do {local $/; <DATA>} + or die "Couldn't load ConfigData data: $@"; +close DATA; +my ($config, $features, $auto_features) = @$arrayref; + +sub config { $config->{$_[1]} } + +sub set_config { $config->{$_[1]} = $_[2] } +sub set_feature { $features->{$_[1]} = 0+!!$_[2] } # Constrain to 1 or 0 + +sub auto_feature_names { grep !exists $features->{$_}, keys %$auto_features } + +sub feature_names { + my @features = (keys %$features, auto_feature_names()); + @features; +} + +sub config_names { keys %$config } + +sub write { + my $me = __FILE__; + require IO::File; + + # Can't use Module::Build::Dumper here because M::B is only a + # build-time prereq of this module + require Data::Dumper; + + my $mode_orig = (stat $me)[2] & 07777; + chmod($mode_orig | 0222, $me); # Make it writeable + my $fh = IO::File->new($me, 'r+') or die "Can't rewrite $me: $!"; + seek($fh, 0, 0); + while (<$fh>) { + last if /^__DATA__$/; + } + die "Couldn't find __DATA__ token in $me" if eof($fh); + + seek($fh, tell($fh), 0); + my $data = [$config, $features, $auto_features]; + $fh->print( 'do{ my ' + . Data::Dumper->new([$data],['x'])->Purity(1)->Dump() + . '$x; }' ); + truncate($fh, tell($fh)); + $fh->close; + + chmod($mode_orig, $me) + or warn "Couldn't restore permissions on $me: $!"; +} + +sub feature { + my ($package, $key) = @_; + return $features->{$key} if exists $features->{$key}; + + my $info = $auto_features->{$key} or return 0; + + # Under perl 5.005, each(%$foo) isn't working correctly when $foo + # was reanimated with Data::Dumper and eval(). Not sure why, but + # copying to a new hash seems to solve it. + my %info = %$info; + + require Module::Build; # XXX should get rid of this + while (my ($type, $prereqs) = each %info) { + next if $type eq 'description' || $type eq 'recommends'; + + my %p = %$prereqs; # Ditto here. + while (my ($modname, $spec) = each %p) { + my $status = Module::Build->check_installed_status($modname, $spec); + if ((!$status->{ok}) xor ($type =~ /conflicts$/)) { return 0; } + if ( ! eval "require $modname; 1" ) { return 0; } + } + } + return 1; +} + + +=head1 NAME + +Module::Build::ConfigData - Configuration for Module::Build + +=head1 SYNOPSIS + + use Module::Build::ConfigData; + $value = Module::Build::ConfigData->config('foo'); + $value = Module::Build::ConfigData->feature('bar'); + + @names = Module::Build::ConfigData->config_names; + @names = Module::Build::ConfigData->feature_names; + + Module::Build::ConfigData->set_config(foo => $new_value); + Module::Build::ConfigData->set_feature(bar => $new_value); + Module::Build::ConfigData->write; # Save changes + + +=head1 DESCRIPTION + +This module holds the configuration data for the C<Module::Build> +module. It also provides a programmatic interface for getting or +setting that configuration data. Note that in order to actually make +changes, you'll have to have write access to the C<Module::Build::ConfigData> +module, and you should attempt to understand the repercussions of your +actions. + + +=head1 METHODS + +=over 4 + +=item config($name) + +Given a string argument, returns the value of the configuration item +by that name, or C<undef> if no such item exists. + +=item feature($name) + +Given a string argument, returns the value of the feature by that +name, or C<undef> if no such feature exists. + +=item set_config($name, $value) + +Sets the configuration item with the given name to the given value. +The value may be any Perl scalar that will serialize correctly using +C<Data::Dumper>. This includes references, objects (usually), and +complex data structures. It probably does not include transient +things like filehandles or sockets. + +=item set_feature($name, $value) + +Sets the feature with the given name to the given boolean value. The +value will be converted to 0 or 1 automatically. + +=item config_names() + +Returns a list of all the names of config items currently defined in +C<Module::Build::ConfigData>, or in scalar context the number of items. + +=item feature_names() + +Returns a list of all the names of features currently defined in +C<Module::Build::ConfigData>, or in scalar context the number of features. + +=item auto_feature_names() + +Returns a list of all the names of features whose availability is +dynamically determined, or in scalar context the number of such +features. Does not include such features that have later been set to +a fixed value. + +=item write() + +Commits any changes from C<set_config()> and C<set_feature()> to disk. +Requires write access to the C<Module::Build::ConfigData> module. + +=back + + +=head1 AUTHOR + +C<Module::Build::ConfigData> was automatically created using C<Module::Build>. +C<Module::Build> was written by Ken Williams, but he holds no +authorship claim or copyright claim to the contents of C<Module::Build::ConfigData>. + +=cut + + +__DATA__ +do{ my $x = [ + {}, + {}, + { + 'license_creation' => { + 'requires' => { + 'Software::License' => 0 + }, + 'description' => 'Create licenses automatically in distributions' + }, + 'inc_bundling_support' => { + 'requires' => { + 'ExtUtils::Installed' => '1.999', + 'ExtUtils::Install' => '1.54' + }, + 'description' => 'Bundle Module::Build in inc/' + }, + 'YAML_support' => { + 'requires' => { + 'YAML::Tiny' => '1.38' + }, + 'description' => 'Use YAML::Tiny to write META.yml files' + }, + 'manpage_support' => { + 'requires' => { + 'Pod::Man' => 0 + }, + 'description' => 'Create Unix man pages' + }, + 'PPM_support' => { + 'requires' => { + 'IO::File' => '1.13' + }, + 'description' => 'Generate PPM files for distributions' + }, + 'dist_authoring' => { + 'requires' => { + 'Archive::Tar' => '1.09' + }, + 'recommends' => { + 'Module::Signature' => '0.21', + 'Pod::Readme' => '0.04' + }, + 'description' => 'Create new distributions' + }, + 'HTML_support' => { + 'requires' => { + 'Pod::Html' => 0 + }, + 'description' => 'Create HTML documentation' + } + } + ]; +$x; }
\ No newline at end of file |