logo
Free, unlimited AI code reviews that run on commit
git-lrc git-lrc GitHub Install Now We'd appreciate a star git-lrc - Free, unlimited AI code reviews that run on commit | Product Hunt git-lrc - Free, unlimited AI code reviews that run on commit | Product Hunt

MooseX::Role::Parameterized - Moose roles with composition parameters

Author

       Shawn M Moore <code@sartak.org>

Caveats

       You must use this syntax to declare methods in the role block: "method NAME => sub { ... };". This is due
       to a limitation in Perl. In return though you can use parameters inyourmethods!

Contributors

       •   Karen Etheridge <ether@cpan.org>

       •   Dave Rolsky <autarch@urth.org>

       •   Jesse Luehrs <doy@tozt.net>

       •   Oliver Charles <oliver.g.charles@googlemail.com>

       •   Yuval Kogman <nothingmuch@woobling.org>

       •   Robert 'phaylon' Sedlacek <rs@474.at>

       •   Florian Ragwitz <rafl@debian.org>

       •   Mark Fowler <mark@twoshortplanks.com>

       •   Chris Weyl <cweyl@alumni.drew.edu>

       •   Csson <erik.carlsson@live.com>

       •   Andy Jack <github@veracity.ca>

       •   Ricardo Signes <rjbs@cpan.org>

       •   Todd Hepler <thepler@employees.org>

Description

       Your parameterized role consists of two new things: parameter declarations and a "role" block.

       Parameters are declared using the "parameter" keyword which very much resembles "has" in Moose. You can
       use any option that "has" in Moose accepts. The default value for the "is" option is "ro" as that's a
       very common case. Use "is => 'bare'" if you want no accessor. These parameters will get their values when
       the consuming class (or role) uses "with" in Moose. A parameter object will be constructed with these
       values, and passed to the "role" block.

       The "role" block then uses the usual Moose::Role keywords to build up a role. You can shift off the
       parameter object to inspect what the consuming class provided as parameters. You use the parameters to
       customize your role however you wish.

       There are many possible implementations for parameterized roles (hopefully with a consistent enough API);
       I believe this to be the easiest and most flexible design. Coincidentally, Pugs originally had an eerily
       similar design.

       See MooseX::Role::Parameterized::Extending for some tips on how to extend this module.

   Whyaparametersobject?
       I've been asked several times "Why use a parameter object and not just a parameter hashref? That would
       eliminate the need to explicitly declare your parameters."

       The benefits of using an object are similar to the benefits of using Moose. You get an easy way to
       specify lazy defaults, type constraint, delegation, and so on. You get to use MooseX modules.

Moosex::Role::Parameterized::Tutorial

Stop! If you're new here, please read MooseX::Role::Parameterized::Tutorial for a much gentler
       introduction.

       You also get the usual introspective and intercessory abilities that come standard with the metaobject
       protocol. Ambitious users should be able to add traits to the parameters metaclass to further customize
       behavior. Please let me know if you're doing anything viciously complicated with this extension. :)

Name

       MooseX::Role::Parameterized - Moose roles with composition parameters

See Also

Support

       Bugs may be submitted through the RT bug tracker
       <https://rt.cpan.org/Public/Dist/Display.html?Name=MooseX-Role-Parameterized> (or
       bug-MooseX-Role-Parameterized@rt.cpan.org <mailto:bug-MooseX-Role-Parameterized@rt.cpan.org>).

       There is also a mailing list available for users of this distribution, at
       <http://lists.perl.org/list/moose.html>.

       There is also an irc channel available for users of this distribution, at "#moose" on "irc.perl.org"
       <irc://irc.perl.org/#moose>.

Synopsis

           package Counter;
           use MooseX::Role::Parameterized;

           parameter name => (
               isa      => 'Str',
               required => 1,
           );

           role {
               my $p = shift;

               my $name = $p->name;

               has $name => (
                   is      => 'rw',
                   isa     => 'Int',
                   default => 0,
               );

               method "increment_$name" => sub {
                   my $self = shift;
                   $self->$name($self->$name + 1);
               };

               method "reset_$name" => sub {
                   my $self = shift;
                   $self->$name(0);
               };
           };

           package MyGame::Weapon;
           use Moose;

           with Counter => { name => 'enchantment' };

           package MyGame::Wand;
           use Moose;

           with Counter => { name => 'zapped' };

Version

       version 1.11

See Also