diff options
author | Karl Berry <karl@freefriends.org> | 2016-04-05 22:27:26 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2016-04-05 22:27:26 +0000 |
commit | b56b320b5e2515160073fa1b469514002688fe11 (patch) | |
tree | 965a7100c5e45fca8ec803d22b8b6ce14fca4633 /Master/tlpkg/tlperl/lib/Module/Build/Config.pm | |
parent | d26c206452d2e285c3bbf949f34011e4a55fd8f9 (diff) |
tlperl 5.22.1 from siep
git-svn-id: svn://tug.org/texlive/trunk@40252 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Module/Build/Config.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Module/Build/Config.pm | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Config.pm b/Master/tlpkg/tlperl/lib/Module/Build/Config.pm deleted file mode 100644 index 69bec80543a..00000000000 --- a/Master/tlpkg/tlperl/lib/Module/Build/Config.pm +++ /dev/null @@ -1,59 +0,0 @@ -package Module::Build::Config; - -use strict; -use vars qw($VERSION); -$VERSION = '0.4205'; -$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; |