home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _9f349780c325e474efec41d2a1b4f995 < prev    next >
Encoding:
Text File  |  2000-03-15  |  946 b   |  47 lines
  1. #
  2. # $Id: MemberMixin.pm,v 1.5 1997/12/02 13:22:52 aas Exp $
  3.  
  4. package LWP::MemberMixin;
  5.  
  6. =head1 NAME
  7.  
  8. LWP::MemberMixin - Member access mixin class
  9.  
  10. =head1 SYNOPSIS
  11.  
  12.  package Foo;
  13.  require LWP::MemberMixin;
  14.  @ISA=qw(LWP::MemberMixin);
  15.  
  16. =head1 DESCRIPTION
  17.  
  18. A mixin class to get methods that provide easy access to member
  19. variables in the %$self.
  20. Ideally there should be better Perl langauge support for this.
  21.  
  22. There is only one method provided:
  23.  
  24. =over 4
  25.  
  26. =item _elem($elem [, $val])
  27.  
  28. Internal method to get/set the value of member variable
  29. C<$elem>. If C<$val> is defined it is used as the new value
  30. for the member variable.  If it is undefined the current
  31. value is not touched. In both cases the previous value of
  32. the member variable is returned.
  33.  
  34. =back
  35.  
  36. =cut
  37.  
  38. sub _elem
  39. {
  40.     my($self, $elem, $val) = @_;
  41.     my $old = $self->{$elem};
  42.     $self->{$elem} = $val if defined $val;
  43.     return $old;
  44. }
  45.  
  46. 1;
  47.