home *** CD-ROM | disk | FTP | other *** search
/ ftp.f-secure.com / 2014.06.ftp.f-secure.com.tar / ftp.f-secure.com / support / hotfix / fsis / IS-SpamControl.fsfix / iufssc / lib / LWP / MemberMixin.pm < prev    next >
Text File  |  2006-11-29  |  904b  |  47 lines
  1. package LWP::MemberMixin;
  2.  
  3. # $Id: MemberMixin.pm 2397 2005-12-23 13:06:15Z kankri $
  4.  
  5. sub _elem
  6. {
  7.     my $self = shift;
  8.     my $elem = shift;
  9.     my $old = $self->{$elem};
  10.     $self->{$elem} = shift if @_;
  11.     return $old;
  12. }
  13.  
  14. 1;
  15.  
  16. __END__
  17.  
  18. =head1 NAME
  19.  
  20. LWP::MemberMixin - Member access mixin class
  21.  
  22. =head1 SYNOPSIS
  23.  
  24.  package Foo;
  25.  require LWP::MemberMixin;
  26.  @ISA=qw(LWP::MemberMixin);
  27.  
  28. =head1 DESCRIPTION
  29.  
  30. A mixin class to get methods that provide easy access to member
  31. variables in the %$self.
  32. Ideally there should be better Perl language support for this.
  33.  
  34. There is only one method provided:
  35.  
  36. =over 4
  37.  
  38. =item _elem($elem [, $val])
  39.  
  40. Internal method to get/set the value of member variable
  41. C<$elem>. If C<$val> is present it is used as the new value
  42. for the member variable.  If it is not present the current
  43. value is not touched. In both cases the previous value of
  44. the member variable is returned.
  45.  
  46. =back
  47.