byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make recipients a setter too

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@319 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2004-09-16 10:46:38 +00:00
parent 06563ad3a3
commit d86da9f944
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/Qpsmtpd/Transaction.pm
View File

@ -28,6 +28,7 @@ sub add_recipient {
sub recipients { sub recipients {
my $self = shift; my $self = shift;
@_ and $self->{_recipients} = [@_];
($self->{_recipients} ? @{$self->{_recipients}} : ()); ($self->{_recipients} ? @{$self->{_recipients}} : ());
} }
@ -174,6 +175,10 @@ This returns a list of the current recipients in the envelope.
Each recipient returned is a C<Qpsmtpd::Address> object. 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( ) =head2 relaying( )
Returns true if this mail transaction is relaying. This value is set Returns true if this mail transaction is relaying. This value is set