diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/site/lib/LWP/MemberMixin.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/site/lib/LWP/MemberMixin.pm | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/LWP/MemberMixin.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/LWP/MemberMixin.pm deleted file mode 100644 index a5a9e7599b..0000000000 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/LWP/MemberMixin.pm +++ /dev/null @@ -1,48 +0,0 @@ -package LWP::MemberMixin; - -our $VERSION = '6.61'; - -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 |