FM / Build

/usr/share/perl5/Module/Build

Name	Size	Mode	Actions
Platform/	-	0755	rm
API.pod	63078	0644	edit dl rm
Authoring.pod	10990	0644	edit dl rm
Base.pm	134259	0644	edit dl rm
Bundling.pod	5108	0444	edit dl rm
Compat.pm	16615	0644	edit dl rm
Config.pm	1105	0644	edit dl rm
ConfigData.pm	6267	0644	edit dl rm
Cookbook.pm	17340	0644	edit dl rm
Dumper.pm	444	0644	edit dl rm
ModuleInfo.pm	11863	0644	edit dl rm
Notes.pm	7681	0644	edit dl rm
PodParser.pm	2197	0644	edit dl rm
PPMMaker.pm	5021	0644	edit dl rm
Version.pm	14750	0644	edit dl rm
YAML.pm	4127	0644	edit dl rm

Edit: /usr/share/perl5/Module/Build/Config.pm (1105B)

package Module::Build::Config;

use strict;
use vars qw($VERSION);
$VERSION = '0.35';
$VERSION = eval $VERSION;
use Config;

sub new {
  my ($pack, %args) = @_;
  return bless {
		stack => {},
		values => $args{values} || {},
	       }, $pack;
}

sub get {
  my ($self, $key) = @_;
  return $self->{values}{$key} if ref($self) && exists $self->{values}{$key};
  return $Config{$key};
}

sub set {
  my ($self, $key, $val) = @_;
  $self->{values}{$key} = $val;
}

sub push {
  my ($self, $key, $val) = @_;
  push @{$self->{stack}{$key}}, $self->{values}{$key}
    if exists $self->{values}{$key};
  $self->{values}{$key} = $val;
}

sub pop {
  my ($self, $key) = @_;

my $val = delete $self->{values}{$key};
  if ( exists $self->{stack}{$key} ) {
    $self->{values}{$key} = pop @{$self->{stack}{$key}};
    delete $self->{stack}{$key} unless @{$self->{stack}{$key}};
  }

return $val;
}

sub values_set {
  my $self = shift;
  return undef unless ref($self);
  return $self->{values};
}

sub all_config {
  my $self = shift;
  my $v = ref($self) ? $self->{values} : {};
  return {%Config, %$v};
}

package Module::Build::Config; use strict; use vars qw($VERSION); $VERSION = '0.35'; $VERSION = eval $VERSION; use Config; sub new { my ($pack, %args) = @_; return bless { stack => {}, values => $args{values} || {}, }, $pack; } sub get { my ($self, $key) = @_; return $self->{values}{$key} if ref($self) && exists $self->{values}{$key}; return $Config{$key}; } sub set { my ($self, $key, $val) = @_; $self->{values}{$key} = $val; } sub push { my ($self, $key, $val) = @_; push @{$self->{stack}{$key}}, $self->{values}{$key} if exists $self->{values}{$key}; $self->{values}{$key} = $val; } sub pop { my ($self, $key) = @_; my $val = delete $self->{values}{$key}; if ( exists $self->{stack}{$key} ) { $self->{values}{$key} = pop @{$self->{stack}{$key}}; delete $self->{stack}{$key} unless @{$self->{stack}{$key}}; } return $val; } sub values_set { my $self = shift; return undef unless ref($self); return $self->{values}; } sub all_config { my $self = shift; my $v = ref($self) ? $self->{values} : {}; return {%Config, %$v}; } 1;