The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
NAME
    MooseX::MungeHas - munge your "has" (works with Moo, Moose and Mouse)

SYNOPSIS
       package Foo::Bar;
   
       use Moose;
       use MooseX::MungeHas "is_ro";
   
       has foo => ();             # read-only
       has bar => (is => "rw");   # read-write

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

    When you `use MooseX::MungeHas` you must provide a list of mungers you
    want it to apply. The following are currently pre-defined:

    `is_ro`, `is_rw`, `is_rwp`, `is_lazy`
        These mungers supply defaults for the `is` option.

        Although only Moo supports `is => "rwp"` and `is => "lazy"`,
        MooseX::MungeHas supplies an implementation of both for Moose or
        Mouse.

    `always_coerce`
        Automatically provides `coerce => 1` if the type constraint provides
        coercions. (Unless you've explicitly specified `coerce => 0`.)

        Although Moo expects coerce to be a coderef, MooseX::MungeHas supplies
        an implementation of `coerce => 0|1` for Type::Tiny type constraints.

    `eq_1`
        Makes `builder => 1`, `clearer => 1`, `predicate => 1`, and `trigger
        => 1` do what you mean.

    `no_isa`
        Switches off `isa` checks for attributes, unless they coerce.

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

        Only works if you're using Type::Tiny constraints.

    If these predefined mungers don't float your boat, then you can provide
    additional mungers using coderefs:

       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 referenced via $_.

    You may provide multiple coderefs. Mungers provided as coderefs are
    executed *after* named ones, but are otherwise executed in the order
    specified.

BUGS
    Please report any bugs to
    <http://rt.cpan.org/Dist/Display.html?Queue=MooseX-MungeHas>.

SEE ALSO
    Moo, Mouse, Moose, MooseX::AttributeShortcuts, MooseX::InlineTypes,
    Type::Tiny::Manual.

    Similar: MooseX::HasDefaults, MooseX::Attributes::Curried,
    MooseX::Attribute::Prototype and MooseX::AttributeDefaults.

AUTHOR
    Toby Inkster <tobyink@cpan.org>.

COPYRIGHT AND LICENCE
    This software is copyright (c) 2013 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.

DISCLAIMER OF WARRANTIES
    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.