summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Module/Build/Config.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-04-05 22:27:26 +0000
committerKarl Berry <karl@freefriends.org>2016-04-05 22:27:26 +0000
commitb56b320b5e2515160073fa1b469514002688fe11 (patch)
tree965a7100c5e45fca8ec803d22b8b6ce14fca4633 /Master/tlpkg/tlperl/lib/Module/Build/Config.pm
parentd26c206452d2e285c3bbf949f34011e4a55fd8f9 (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.pm59
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;