| package Module::Build::Config; |
| $VERSION = eval $VERSION; |
| values => $args{values} || {}, |
| return $self->{values}{$key} if ref($self) && exists $self->{values}{$key}; |
| my ($self, $key, $val) = @_; |
| $self->{values}{$key} = $val; |
| my ($self, $key, $val) = @_; |
| push @{$self->{stack}{$key}}, $self->{values}{$key} |
| if exists $self->{values}{$key}; |
| $self->{values}{$key} = $val; |
| 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 undef unless ref($self); |
| my $v = ref($self) ? $self->{values} : {}; |