summaryrefslogtreecommitdiffstats
path: root/gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/Config.pm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/Config.pm')
-rw-r--r--gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/Config.pm59
1 files changed, 0 insertions, 59 deletions
diff --git a/gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/Config.pm b/gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/Config.pm
deleted file mode 100644
index 69bec80543a..00000000000
--- a/gnu/usr.bin/perl/cpan/Module-Build/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;