summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/site/lib/LWP/MemberMixin.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/LWP/MemberMixin.pm')
-rw-r--r--Master/tlpkg/tlperl/site/lib/LWP/MemberMixin.pm22
1 files changed, 12 insertions, 10 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/LWP/MemberMixin.pm b/Master/tlpkg/tlperl/site/lib/LWP/MemberMixin.pm
index e5ee6f6382e..d56a2e8abad 100644
--- a/Master/tlpkg/tlperl/site/lib/LWP/MemberMixin.pm
+++ b/Master/tlpkg/tlperl/site/lib/LWP/MemberMixin.pm
@@ -1,10 +1,9 @@
package LWP::MemberMixin;
-
-sub _elem
-{
+$LWP::MemberMixin::VERSION = '6.25';
+sub _elem {
my $self = shift;
my $elem = shift;
- my $old = $self->{$elem};
+ my $old = $self->{$elem};
$self->{$elem} = shift if @_;
return $old;
}
@@ -13,6 +12,8 @@ sub _elem
__END__
+=pod
+
=head1 NAME
LWP::MemberMixin - Member access mixin class
@@ -20,20 +21,21 @@ LWP::MemberMixin - Member access mixin class
=head1 SYNOPSIS
package Foo;
- require LWP::MemberMixin;
- @ISA=qw(LWP::MemberMixin);
+ use base qw(LWP::MemberMixin);
=head1 DESCRIPTION
A mixin class to get methods that provide easy access to member
-variables in the %$self.
+variables in the C<%$self>.
Ideally there should be better Perl language support for this.
+=head1 METHODS
+
There is only one method provided:
-=over 4
+=head2 _elem
-=item _elem($elem [, $val])
+ _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
@@ -41,4 +43,4 @@ 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