lib/MooseX/FollowPBP.pm

   1 package MooseX::FollowPBP;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Moose 0.94 ();
   7 use Moose::Exporter;
   8 use Moose::Util::MetaRole;
   9 use MooseX::FollowPBP::Role::Attribute;
  10
  11 Moose::Exporter->setup_import_methods(
  12     class_metaroles => {
  13         attribute => ['MooseX::FollowPBP::Role::Attribute'],
  14     },
  15 );
  16
  17 1;
  18
  19 # ABSTRACT: Name your accessors get_foo() and set_foo()
  20
  21 __END__
  22
  23 =pod
  24
  25 =head1 SYNOPSIS
  26
  27     use Moose;
  28     use MooseX::FollowPBP;
  29
  30     # make some attributes
  31
  32 =head1 DESCRIPTION
  33
  34 This module does not provide any methods. Simply loading it changes
  35 the default naming policy for the loading class so that accessors are
  36 separated into get and set methods. The get methods are prefixed with
  37 "get_" as the accessor, while set methods are prefixed with
  38 "set_". This is the naming style recommended by Damian Conway in
  39 I<Perl Best Practices>.
  40
  41 If you define an attribute with a leading underscore, then both the
  42 get and set method will also have an underscore prefix.
  43
  44 If you explicitly set a "reader" or "writer" name when creating an
  45 attribute, then that attribute's naming scheme is left unchanged.
  46
  47 =head1 BUGS
  48
  49 Please report any bugs or feature requests to
  50 C<bug-moosex-followpbp@rt.cpan.org>, or through the web interface at
  51 L<http://rt.cpan.org>.  I will be notified, and then you'll
  52 automatically be notified of progress on your bug as I make changes.
  53
  54 =cut