@Ghazascanner
_2019runbot
Ghazascanner File Manager
server :Linux phosweb011 3.10.0-1160.el7.x86_64 #1 SMP Mon Oct 19 16:18:59 UTC 2020 x86_64
Current Path :
/
homepage
/
v-mt
/
extlib
/
LWP
/
Path :
Upload File :
New :
File
Dir
//homepage/v-mt/extlib/LWP/MemberMixin.pm
# # $Id: MemberMixin.pm,v 1.6 2001/04/27 21:57:36 gisle Exp $ package LWP::MemberMixin; =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 langauge 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 =cut sub _elem { my $self = shift; my $elem = shift; my $old = $self->{$elem}; $self->{$elem} = shift if @_; return $old; } 1;