diff options
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/ConfigData.pm')
| -rw-r--r-- | gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/ConfigData.pm | 210 |
1 files changed, 0 insertions, 210 deletions
diff --git a/gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/ConfigData.pm b/gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/ConfigData.pm deleted file mode 100644 index ec72359cd08..00000000000 --- a/gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/ConfigData.pm +++ /dev/null @@ -1,210 +0,0 @@ -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__; - - # 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 - open(my $fh, '+<', $me) 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]; - print($fh 'do{ my ' - . Data::Dumper->new([$data],['x'])->Purity(1)->Dump() - . '$x; }' ); - truncate($fh, tell($fh)); - close $fh; - - 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 = [ - {}, - {}, - { - 'dist_authoring' => { - 'requires' => { - 'Archive::Tar' => '1.09' - }, - 'description' => 'Create new distributions', - 'recommends' => { - 'Pod::Readme' => '0.04', - 'Module::Signature' => '0.21' - } - }, - 'HTML_support' => { - 'requires' => { - 'Pod::Html' => 0 - }, - 'description' => 'Create HTML documentation' - }, - 'manpage_support' => { - 'requires' => { - 'Pod::Man' => 0 - }, - 'description' => 'Create Unix man pages' - }, - 'license_creation' => { - 'requires' => { - 'Software::License' => '0.103009' - }, - 'description' => 'Create licenses automatically in distributions' - }, - 'PPM_support' => { - 'description' => 'Generate PPM files for distributions' - }, - 'inc_bundling_support' => { - 'requires' => { - 'ExtUtils::Installed' => '1.999', - 'ExtUtils::Install' => '1.54' - }, - 'description' => 'Bundle Module::Build in inc/' - } - } - ]; -$x; }
\ No newline at end of file |