MooseX::HasDefaults − default "is" to "ro" or "rw" for all attributes
package Person; use Moose; use MooseX::HasDefaults::RO; has name => ( isa => 'Str', ); has age => ( is => 'rw', isa => 'Int', documentation => "Changes most years", );
The module MooseX::HasDefaults::RO defaults "is" to "ro".
The module MooseX::HasDefaults::RW defaults "is" to "rw".
If you pass a specific value to any "has"’s "is", that overrides the default. If you do not want an accessor, pass "is => undef".
Shawn M Moore, "sartak AT gmail DOT com"
This requires its users to be MOP savvy, and is a bit too much typing for the common case of defaulting "is".
This solves a similar need by letting users create sugar functions. But people like "has".
Copyright 2009 Infinity Interactive
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.