=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 Translated: Hippo2000 (5.48) Updated: Kentaro SHIRAKATA (5.813) =end meta