Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els11.x86_64 #1 SMP Sun Nov 3 09:06:59 UTC 2024 x86_64
Apache
: 148.66.134.25 | : 18.224.55.63
66 Domain
8.0.30
amvm
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
vendor_perl /
Module /
Build /
[ HOME SHELL ]
Name
Size
Permission
Action
Platform
[ DIR ]
drwxr-xr-x
API.pod
66.87
KB
-rw-r--r--
Authoring.pod
10.75
KB
-rw-r--r--
Base.pm
162.47
KB
-rw-r--r--
Bundling.pod
4.96
KB
-rw-r--r--
Compat.pm
17.96
KB
-rw-r--r--
Config.pm
1.08
KB
-rw-r--r--
ConfigData.pm
6.96
KB
-rw-r--r--
Cookbook.pm
16.93
KB
-rw-r--r--
Dumper.pm
446
B
-rw-r--r--
ModuleInfo.pm
625
B
-rw-r--r--
Notes.pm
8.33
KB
-rw-r--r--
PPMMaker.pm
4.54
KB
-rw-r--r--
PodParser.pm
1.31
KB
-rw-r--r--
Version.pm
361
B
-rw-r--r--
YAML.pm
401
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Config.pm
package Module::Build::Config; use strict; use vars qw($VERSION); $VERSION = '0.4005'; $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;
Close
