cvs commit: qpsmtpd/lib/Qpsmtpd Transaction.pm

cvsuser     04/09/16 03:46:38

  Modified:    lib/Qpsmtpd Transaction.pm
  Log:
  Make recipients a setter too
  
  Revision  Changes    Path
  1.16      +5 -0      qpsmtpd/lib/Qpsmtpd/Transaction.pm
  
  Index: Transaction.pm
  ===================================================================
  RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/Transaction.pm,v
  retrieving revision 1.15
  retrieving revision 1.16
  diff -u -w -r1.15 -r1.16
  --- Transaction.pm	16 Jul 2004 05:04:25 -0000	1.15
  +++ Transaction.pm	16 Sep 2004 10:46:38 -0000	1.16
  @@ -28,6 +28,7 @@
   
   sub recipients {
     my $self = shift;
  +  @_ and $self->{_recipients} = [@_];
     ($self->{_recipients} ? @{$self->{_recipients}} : ());
   }
   
  @@ -174,6 +175,10 @@
   
   Each recipient returned is a C<Qpsmtpd::Address> object.
   
  +This method is also a setter. Pass in a list of recipients to change
  +the recipient list to an entirely new list. Note that the recipients
  +you pass in B<MUST> be C<Qpsmtpd::Address> objects.
  +
   =head2 relaying( )
   
   Returns true if this mail transaction is relaying.  This value is set