home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / hiz / 09 / 09.exe / adynware.exe / perl / lib / site / LWP / MemberMixin.pm < prev    next >
Encoding:
Perl POD Document  |  1999-12-28  |  862 b   |  44 lines
  1.  
  2. package LWP::MemberMixin;
  3.  
  4. =head1 NAME
  5.  
  6. LWP::MemberMixin - Member access mixin class
  7.  
  8. =head1 SYNOPSIS
  9.  
  10.  package Foo;
  11.  require LWP::MemberMixin;
  12.  @ISA=qw(LWP::MemberMixin);
  13.  
  14. =head1 DESCRIPTION
  15.  
  16. A mixin class to get methods that provide easy access to member
  17. variables in the %$self.
  18.  
  19. =head1 BUGS
  20.  
  21. Ideally there should be better Perl langauge support for this.
  22.  
  23. =head1 METHODS
  24.  
  25. =head2 _elem($elem [, $val])
  26.  
  27. Internal method to get/set the value of member variable
  28. C<$elem>. If C<$val> is defined it is used as the new value
  29. for the member variable.  If it is undefined the current
  30. value is not touched. In both cases the previous value of
  31. the member variable is returned.
  32.  
  33. =cut
  34.  
  35. sub _elem
  36. {
  37.     my($self, $elem, $val) = @_;
  38.     my $old = $self->{$elem};
  39.     $self->{$elem} = $val if defined $val;
  40.     return $old;
  41. }
  42.  
  43. 1;
  44.