MooseX::MungeHas - munge your "has" (works with Moo, Moose and Mouse)
package Foo::Bar; use Moose; use MooseX::MungeHas "is_ro"; has foo => (); # read-only has bar => (is => "rw"); # read-write
MooseX::MungeHas alters the behaviour of the attributes of your Moo, Moose or Mouse based class. It manages to support all three because it doesn't attempt to do anything smart with metathingies; it simply installs a wrapper for has that munges the attribute specification hash before passing it on to the original has function.
has
The following munges are always applied (simply because I can see no sensible reason why you would not want them to be).
Implement is => "rwp" and is => "lazy" in Moose and Mouse.
is => "rwp"
is => "lazy"
(These already work in Moo.)
Implement builder => 1, clearer => 1, predicate => 1, and trigger => 1 in Moose and Mouse.
builder => 1
clearer => 1
predicate => 1
trigger => 1
Implement builder => sub { ... } in Moose and Mouse.
builder => sub { ... }
(This already works in Moo.)
Allow Moo to support coerce => 0|1 for Type::Tiny type constraints. (Moo normally expects a coderef for the coercion.)
coerce => 0|1
(These already work in Moose and Mouse, and has actually been added to Moo as of version 1.006000.)
Makes has $name => sub { ... } into a shortcut for:
has $name => sub { ... }
has $name => (is => "lazy", builder => sub { ... });
Makes has $name => $type_constraint into a shortcut for:
has $name => $type_constraint
has $name => (isa => $type_constraint);
(Assuming that $type_constraint is a blessed type constraint object a la Type::Tiny, MooseX::Types, etc.)
$type_constraint
Makes lazy => sub { ... } into a shortcut for:
lazy => sub { ... }
lazy => 1, builder => sub { ... },
When you import this module (i.e. use MooseX::MungeHas) you can provide a list of additional mungers you want it to apply. These may be provided as coderefs, though for a few common, useful sets of behaviour, there are pre-defined shortcut strings.
use MooseX::MungeHas
# "no_isa" is a pre-defined shortcut; # the other munger is a coderef. # use MooseX::MungeHas "no_isa", sub { # Make constructor ignore private attributes $_{init_arg} = undef if /^_/; };
Within coderefs, the name of the attribute being processed is available in the $_ variable, and the specification hash is available as %_.
$_
%_
You may provide multiple coderefs.
The following are the pre-defined shortcuts:
is_ro
is_rw
is_rwp
is_lazy
These mungers supply defaults for the is option.
is
always_coerce
Automatically provides coerce => 1 if the type constraint provides coercions. (Unless you've explicitly specified coerce => 0.)
coerce => 1
coerce => 0
always_required
Automatically provides required => 1 unless there is a default or builder. (Unless you've explicitly specified required => 0.)
required => 1
required => 0
no_isa
Switches off isa checks for attributes, unless they coerce.
isa
simple_isa
Loosens type constraints if they don't coerce, and if it's likely to make them significantly faster. (Loosening Int to Num won't speed it up.)
Int
Num
Only works if you're using Type::Tiny constraints.
Mungers provided as coderefs are executed after predefined ones, but are otherwise executed in the order specified.
Since version 0.007, it has been possible to use MooseX::MungeHas to export multiple wrappers with different names:
package Foo; use Moose; use MooseX::MungeHas { has_ro => [ "is_ro", "always_coerce" ], has_rw => [ "is_rw", "always_coerce" ], }; has_ro "foo" => (required => 1); has_rw "bar";
Note in the example above, MooseX::MungeHas has installed two brand new wrapped has functions with different names, but it has left the standard has function unmolested.
If you wanted to alter the standard function too, then you could use:
package Foo; use Moose; use MooseX::MungeHas { has => [ "always_coerce" ], has_ro => [ "is_ro", "always_coerce" ], has_rw => [ "is_rw", "always_coerce" ], }; has_ro "foo" => (required => 1); has_rw "bar";
Please report any bugs to http://rt.cpan.org/Dist/Display.html?Queue=MooseX-MungeHas.
Moo, Mouse, Moose, MooseX::AttributeShortcuts, MooseX::InlineTypes, Type::Tiny::Manual.
Similar: MooseX::HasDefaults, MooseX::Attributes::Curried, MooseX::Attribute::Prototype and MooseX::AttributeDefaults.
Toby Inkster <tobyink@cpan.org>.
This software is copyright (c) 2013-2014, 2017 by Toby Inkster.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
To install MooseX::MungeHas, copy and paste the appropriate command in to your terminal.
cpanm
cpanm MooseX::MungeHas
CPAN shell
perl -MCPAN -e shell install MooseX::MungeHas
For more information on module installation, please visit the detailed CPAN module installation guide.