Na}{

File Content: `Config.pm`

package Module::Build::Config;

use strict;
use vars qw($VERSION);
$VERSION = '0.4005';
$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;

Name	Size	Permission
Platform	---	0755
API.pod	68475 bytes	0644
Authoring.pod	11004 bytes	0644
Base.pm	166368 bytes	0644
Bundling.pod	5080 bytes	0644
Compat.pm	18389 bytes	0644
Config.pm	1107 bytes	0644
ConfigData.pm	7123 bytes	0644
Cookbook.pm	17341 bytes	0644
Dumper.pm	446 bytes	0644
ModuleInfo.pm	625 bytes	0644
Notes.pm	8533 bytes	0644
PPMMaker.pm	4649 bytes	0644
PodParser.pm	1345 bytes	0644
Version.pm	361 bytes	0644
YAML.pm	401 bytes	0644

File Content: Config.pm

File Content: `Config.pm`