Linux premium71.web-hosting.com 4.18.0-513.11.1.lve.el8.x86_64 #1 SMP Thu Jan 18 16:21:02 UTC 2024 x86_64
LiteSpeed
Server IP : 198.187.29.8 & Your IP : 3.15.201.103
Domains :
Cant Read [ /etc/named.conf ]
User : cleahvkv
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
local /
share /
perl5 /
LWP /
Delete
Unzip
Name
Size
Permission
Date
Action
Authen
[ DIR ]
drwxr-xr-x
2024-03-03 22:17
Debug
[ DIR ]
drwxr-xr-x
2024-03-03 22:17
Protocol
[ DIR ]
drwxr-xr-x
2024-03-06 00:15
UserAgent
[ DIR ]
drwxr-xr-x
2024-03-05 23:49
ConnCache.pm
8.55
KB
-r--r--r--
2024-01-25 18:31
Debug.pm
2.85
KB
-r--r--r--
2024-01-25 18:31
DebugFile.pm
67
B
-r--r--r--
2024-01-25 18:31
MediaTypes.pm
6.75
KB
-r--r--r--
2019-03-20 13:01
MemberMixin.pm
877
B
-r--r--r--
2024-01-25 18:31
Protocol.pm
9.37
KB
-r--r--r--
2024-01-25 18:31
RobotUA.pm
7.71
KB
-r--r--r--
2024-01-25 18:31
Simple.pm
6.52
KB
-r--r--r--
2024-01-25 18:31
UserAgent.pm
73.49
KB
-r--r--r--
2024-01-25 18:31
media.types
48.65
KB
-r--r--r--
2019-03-20 13:01
Save
Rename
package LWP::MemberMixin; our $VERSION = '6.76'; sub _elem { my $self = shift; my $elem = shift; my $old = $self->{$elem}; $self->{$elem} = shift if @_; return $old; } 1; __END__ =pod =head1 NAME LWP::MemberMixin - Member access mixin class =head1 SYNOPSIS package Foo; use parent qw(LWP::MemberMixin); =head1 DESCRIPTION A mixin class to get methods that provide easy access to member variables in the C<%$self>. Ideally there should be better Perl language support for this. =head1 METHODS There is only one method provided: =head2 _elem _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. =cut