diff options
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/LWP/MemberMixin.pm')
-rw-r--r-- | Master/tlpkg/tlperl/site/lib/LWP/MemberMixin.pm | 22 |
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 |