Mass Deface
Email Grabber
{$key} ? $self->{$key} : $self->fetch_string($key);
}
sub TIEHASH {
bless $_[1], $_[0];
}
sub DESTROY { }
sub AUTOLOAD {
require 'Config_heavy.pl';
goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/;
die "&Config::AUTOLOAD failed on $Config::AUTOLOAD";
}
# tie returns the object, so the value returned to require will be true.
tie %Config, 'Config', {
archlibexp => '/usr/lib64/perl5',
archname => 'x86_64-linux-thread-multi',
cc => 'gcc',
d_readlink => 'define',
d_symlink => 'define',
dlext => 'so',
dlsrc => 'dl_dlopen.xs',
dont_use_nlink => undef,
exe_ext => '',
inc_version_list => ' ',
intsize => '4',
ldlibpthname => 'LD_LIBRARY_PATH',
libpth => '/usr/local/lib64 /lib64 /usr/lib64',
osname => 'linux',
osvers => '3.10.0-957.1.3.el7.x86_64',
path_sep => ':',
privlibexp => '/usr/share/perl5',
scriptdir => '/usr/bin',
sitearchexp => '/usr/local/lib64/perl5',
sitelibexp => '/usr/local/share/perl5',
so => 'so',
useithreads => 'define',
usevendorprefix => 'define',
version => '5.16.3',
};