home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl_ste.zip / LWP / MemberMixin.pm < prev    next >
Text File  |  1997-04-05  |  879b  |  46 lines
  1. #
  2. # $Id: MemberMixin.pm,v 1.4 1997/04/05 12:38:05 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.  
  21. =head1 BUGS
  22.  
  23. Ideally there should be better Perl langauge support for this.
  24.  
  25. =head1 METHODS
  26.  
  27. =head2 _elem($elem [, $val])
  28.  
  29. Internal method to get/set the value of member variable
  30. C<$elem>. If C<$val> is defined it is used as the new value
  31. for the member variable.  If it is undefined the current
  32. value is not touched. In both cases the previous value of
  33. the member variable is returned.
  34.  
  35. =cut
  36.  
  37. sub _elem
  38. {
  39.     my($self, $elem, $val) = @_;
  40.     my $old = $self->{$elem};
  41.     $self->{$elem} = $val if defined $val;
  42.     return $old;
  43. }
  44.  
  45. 1;
  46.