1#@!#!123s

: / proc / self / root / usr / share / perl5 / vendor_perl / LWP /

Filename : MemberMixin.pm

back

package LWP::MemberMixin;

our $VERSION = '6.34';

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 base 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

Name	Size	Last Modified	Owner	Permissions
Authen	Dir	July 28 2023 2:57:26	root	0755
Debug	Dir	July 28 2023 2:57:26	root	0755
Protocol	Dir	July 28 2023 2:57:26	root	0755
ConnCache.pm	8.533 KB	June 05 2018 6:49:03	root	0644
Debug.pm	2.846 KB	June 05 2018 6:49:03	root	0644
DebugFile.pm	0.065 KB	June 05 2018 6:49:03	root	0644
MediaTypes.pm	6.326 KB	April 22 2022 6:00:00	root	0644
MemberMixin.pm	0.854 KB	June 05 2018 6:49:03	root	0644
Protocol.pm	8.178 KB	June 05 2018 6:49:03	root	0644
RobotUA.pm	7.708 KB	June 05 2018 6:49:03	root	0644
Simple.pm	6.396 KB	June 05 2018 6:49:03	root	0644
UserAgent.pm	65.942 KB	April 22 2022 8:13:06	root	0644
media.types	48.647 KB	February 16 2012 8:37:08	root	0644

2017 © D7net \| D704T team