diff options
Diffstat (limited to 'lib/Sietima/Subscriber.pm')
| -rw-r--r-- | lib/Sietima/Subscriber.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/Sietima/Subscriber.pm b/lib/Sietima/Subscriber.pm index 649b2e5..96c7d3b 100644 --- a/lib/Sietima/Subscriber.pm +++ b/lib/Sietima/Subscriber.pm @@ -21,7 +21,7 @@ subscriber, together with possible aliases and preferences. All attributes are read-only. -=head2 C<raw_address> +=head2 C<primary> Required L<< C<Email::Address> >> object, coercible from a string. @@ -30,7 +30,7 @@ will receive messages from the mailing list. =cut -has raw_address => ( +has primary => ( isa => Address, is => 'ro', required => 1, @@ -83,7 +83,7 @@ has prefs => ( Given a L<< C<Email::Address> >> object (or a string), this method returns true if the address is equivalent to the -L<primary|/raw_address> or any of the L</aliases>. +L</primary> or any of the L</aliases>. This method should be used to determine whether an address belongs to a subscriber. @@ -97,7 +97,7 @@ sub match { my ($self,$addr) = $check->(@_); return any { $addr->address eq $_->address } - $self->raw_address, $self->aliases->@*; + $self->primary, $self->aliases->@*; } =head2 C<address> @@ -107,7 +107,7 @@ sub match { =head2 C<original> These methods delegate to L<< C<Email::Address> >>'s methods of the -same name, invoked on the L<primary address|/raw_address>. +same name, invoked on the L<primary address|/primary>. =cut |