=encoding euc-jp

=head1 NAME

=begin original

LWP::MemberMixin - Member access mixin class

=end original

LWP::MemberMixin - メンバアクセス mixin クラス

=head1 SYNOPSIS

 package Foo;
 require LWP::MemberMixin;
 @ISA=qw(LWP::MemberMixin);

=head1 DESCRIPTION

=begin original

A mixin class to get methods that provide easy access to member
variables in the %$self.
Ideally there should be better Perl language support for this.

=end original

%$self に入っているメンバ変数への簡単なアクセスを提供する
get メソッドのための mixin クラスです。
理想的にはこれに対する Perl 言語によるよりよいサポートがあるべきです。

=begin original

There is only one method provided:

=end original

一つだけメソッドを提供します:

=over 4

=item _elem($elem [, $val])

=begin original

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.

=end original

メンバ変数 C<$elem> の値の取得/設定のための内部メソッド。
C<$val> が存在すれば、メンバ変数のための新しい値として使われます。
それが存在していなければ、現在の値には触れられません。
どちらの場合もメンバ変数の前の値が返されます。

=back

=begin meta

Translate: Hippo2000 <GCD00051@nifty.ne.jp> (5.48)
Update: SHIRAKATA Kentaro <argrath@ub32.org> (5.813-)
Status: completed

=end meta