use more Pod::Weaver

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>.