NAME
MooX::Enumeration - shortcuts for working with enum attributes in Moo
SYNOPSIS
Given this class:
package MyApp::Result {
use Moo;
use Types::Standard qw(Enum);
has status => (
is => "rw",
isa => Enum[qw/ pass fail /],
);
}
It's quite common to do this kind of thing:
if ( $result->status eq "pass" ) { ... }
But if you're throwing strings around, it can be quite easy to mistype them:
if ( $result->status eq "apss" ) { ... }
And the comparison silently fails. Instead, let's define the class like this:
package MyApp::Result {
use Moo;
use MooX::Enumeration;
use Types::Standard qw(Enum);
has status => (
is => "rw",
isa => Enum[qw/ pass fail /],
handles => [qw/ is_pass is_fail /],
);
}
So you can use the class like this:
if ( $result->is_pass ) { ... }
Yay!
DESCRIPTION
This is a Moo implementation of MooseX::Enumeration. All the features from the Moose version should work here.
Passing traits => ["Enumeration"]
to has
is not needed with MooX::Enumeration. This module's magic is automatically applied to all attributes with a Type::Tiny::Enum type constraint.
Simple example:
package MyClass {
use Moo;
use MooX::Enumeration;
has xyz => (is => "ro", enum => [qw/foo bar baz/], handles => 1);
}
MyClass->new(xyz => "quux")
will throw an error.
Objects of the class will have $object->is_foo
, $object->is_bar
, and $object->is_baz
methods.
For more details of method delegation, see MooseX::Enumeration.
BUGS
Please report any bugs to http://rt.cpan.org/Dist/Display.html?Queue=MooX-Enumeration.
SEE ALSO
Moo.
AUTHOR
Toby Inkster <tobyink@cpan.org>.
COPYRIGHT AND LICENCE
This software is copyright (c) 2018 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.