diff options
Diffstat (limited to 'lib/Sietima/Subscriber.pm')
| -rw-r--r-- | lib/Sietima/Subscriber.pm | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/lib/Sietima/Subscriber.pm b/lib/Sietima/Subscriber.pm index 4782e85..b62e44f 100644 --- a/lib/Sietima/Subscriber.pm +++ b/lib/Sietima/Subscriber.pm @@ -20,7 +20,7 @@ subscriber, together with possible aliases and preferences. All attributes are read-only. -=head2 C<primary> +=attr C<primary> Required L<< C<Email::Address> >> object, coercible from a string. @@ -37,7 +37,7 @@ has primary => ( handles => [qw(address name original)], ); -=head2 C<aliases> +=attr C<aliases> Arrayref of L<< C<Email::Address> >> objects, each coercible from a string. Defaults to an empty arrayref. @@ -61,7 +61,7 @@ has aliases => ( ); sub _build_aliases { +[] } -=head2 C<prefs> +=attr C<prefs> A hashref. Various preferences that may be interpreted by Sietima roles. Defaults to an empty hashref. @@ -74,9 +74,7 @@ has prefs => ( default => sub { +{} }, ); -=head1 METHODS - -=head2 C<match> +=method C<match> if ($subscriber->match($address)) { ... } @@ -99,11 +97,11 @@ sub match { $self->primary, $self->aliases->@*; } -=head2 C<address> +=method C<address> -=head2 C<name> +=method C<name> -=head2 C<original> +=method C<original> These methods delegate to L<< C<Email::Address> >>'s methods of the same name, invoked on the L<primary address|/primary>. |