Why not adopt me?
NAME
Class::Type::Enum - Build Enum-like classes
VERSION
version 0.010
SYNOPSIS
package Toast::Status {
use Class::Type::Enum values => ['bread', 'toasting', 'toast', 'burnt'];
}
package Toast {
use Moo;
has status => (
is => 'rw',
isa => Toast::Status->type_constraint,
coerce => 1,
handles => [ Toast::Status->list_is_methods ],
);
}
my @toast = map { Toast->new(status => $_) } qw( toast burnt bread bread toasting toast );
my @trashcan = grep { $_->is_burnt } @toast;
my @plate = grep { $_->is_toast } @toast;
my $ready_status = Toast::Status->new('toast');
my @eventual_toast = grep { $_->status < $ready_status } @toast;
# or:
@eventual_toast = grep { $_->status lt 'toast' } @toast;
# or:
@eventual_toast = grep { $_->status->none('toast', 'burnt') } @toast;DESCRIPTION
Class::Type::Enum is a class builder for type-like classes to represent your enumerated values. In particular, it was built to scratch an itch with DBIx::Class value inflation.
I wouldn't consider the interface stable yet; I'd love feedback on this dist.
When useing Class::Type::Enum:
Required:
Custom Ordinal Values
If you'd like to build an enum that works like a bitfield or some other custom setup, you need only pass a more explicit hashref to Class::Type::Enum.
package BitField {
use Class::Type::Enum values => {
READ => 1,
WRITE => 2,
EXECUTE => 4,
};
}METHODS
$class->import(values => ...)
Sets up the consuming class as a subclass of Class::Type::Enum and installs functions that are unique to the class.
$class->new($value)
Your basic constructor, expects only a value corresponding to a symbol in the enum type. Also works as an instance method for enums of the same class.
$class->inflate_symbol($symbol)
Does the actual work of $class->new($value), also used when inflating values for DBIx::Class::InflateColumn::ClassTypeEnum.
$class->inflate_ordinal($ord)
Used when inflating ordinal values for DBIx::Class::InflateColumn::ClassTypeEnum or if you need to work with ordinals directly.
$class->sym_to_ord
Returns a hashref keyed by symbol, with ordinals as values.
$class->ord_to_sym
Returns a hashref keyed by ordinal, with symbols as values.
$class->values
Returns an arrayref of valid symbolic values, in order.
$class->list_is_methods
Returns a list of is_ methods defined for each symbolic value for the class.
$class->type_constraint
This method requires the optional dependency Type::Tiny.
Returns a type constraint suitable for use with Moo and friends.
$class->test_symbol($value)
Test whether or not the given value is a valid symbol in this enum class.
$class->test_ordinal($value)
Test whether or not the given value is a valid ordinal in this enum class.
$class->coerce_symbol($value)
If the given value is already a $class, return it, otherwise try to inflate it as a symbol. Dies on invalid value.
$class->coerce_ordinal($value)
If the given value is already a $class, return it, otherwise try to inflate it as an ordinal. Dies on invalid value.
$class->coerce_any($value)
If the given value is already a $class, return it, otherwise try to inflate it first as an ordinal, then as a symbol. Dies on invalid value.
$o->is($value)
Given a test symbol, test that the enum instance's value is equivalent.
An exception is thrown if an invalid symbol is provided
$o->is_$value
Shortcut for $o->is($value)
$o->stringify
Returns the symbolic value.
$o->numify
Returns the ordinal value.
$o->cmp($other, $reversed = undef)
The string-compare implementation used by overloading. Returns the same values as cmp. The optional third argument is an artifact of overload, set to true if the order of $o and $other have been reversed in order to make the overloaded method call work.
$o->any(@cases)
True if $o->is(..) for any of the given cases.
$o->none(@cases)
True if $o->is(..) for none of the given cases.
SEE ALSO
AUTHOR
Meredith Howard <mhoward@cpan.org>
COPYRIGHT AND LICENSE
This software is copyright (c) 2018 by Meredith Howard.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.