cpan/Module-Build/lib/Module/Build/Config.pm

   1 package Module::Build::Config;
   2
   3 use strict;
   4 use vars qw($VERSION);
   5 $VERSION = '0.4005';
   6 $VERSION = eval $VERSION;
   7 use Config;
   8
   9 sub new {
  10   my ($pack, %args) = @_;
  11   return bless {
  12                 stack => {},
  13                 values => $args{values} || {},
  14                }, $pack;
  15 }
  16
  17 sub get {
  18   my ($self, $key) = @_;
  19   return $self->{values}{$key} if ref($self) && exists $self->{values}{$key};
  20   return $Config{$key};
  21 }
  22
  23 sub set {
  24   my ($self, $key, $val) = @_;
  25   $self->{values}{$key} = $val;
  26 }
  27
  28 sub push {
  29   my ($self, $key, $val) = @_;
  30   push @{$self->{stack}{$key}}, $self->{values}{$key}
  31     if exists $self->{values}{$key};
  32   $self->{values}{$key} = $val;
  33 }
  34
  35 sub pop {
  36   my ($self, $key) = @_;
  37
  38   my $val = delete $self->{values}{$key};
  39   if ( exists $self->{stack}{$key} ) {
  40     $self->{values}{$key} = pop @{$self->{stack}{$key}};
  41     delete $self->{stack}{$key} unless @{$self->{stack}{$key}};
  42   }
  43
  44   return $val;
  45 }
  46
  47 sub values_set {
  48   my $self = shift;
  49   return undef unless ref($self);
  50   return $self->{values};
  51 }
  52
  53 sub all_config {
  54   my $self = shift;
  55   my $v = ref($self) ? $self->{values} : {};
  56   return {%Config, %$v};
  57 }
  58
  59 1;