# NAME MouseX::Types::Enum - Object-oriented, Java-like enum type declaration based on Mouse # SYNOPSIS Most simple declaration and usage is, { package Day; use strict; use warnings FATAL => 'all'; use MouseX::Types::Enum qw/ Sun Mon Tue Wed Thu Fri Sat /; __PACKAGE__->meta->make_immutable; } Day->Sun == Day->Sun; # 1 Day->Sun == Day->Mon; # '' Day->Sun->to_string; # 'APPLE' Day->enums; # { Sun => Day->Sun, Mon => Day->Mon, ... } Advanced declaration and usage is, { package Fruits; use Mouse; use MouseX::Types::Enum ( APPLE => { name => 'Apple', color => 'red' }, ORANGE => { name => 'Cherry', color => 'red' }, BANANA => { name => 'Banana', color => 'yellow', has_seed => 0 } ); has name => (is => 'ro', isa => 'Str'); has color => (is => 'ro', isa => 'Str'); has has_seed => (is => 'ro', isa => 'Int', default => 1); sub make_sentence { my ($self, $suffix) = @_; $suffix ||= ""; return sprintf("%s is %s%s", $self->name, $self->color, $suffix); } __PACKAGE__->meta->make_immutable; } Fruits->APPLE == Fruits->APPLE; # 1 Fruits->APPLE == Fruits->ORANGE; # '' Fruits->APPLE->to_string; # 'APPLE' Fruits->APPLE->name; # 'Apple'; Fruits->APPLE->color; # 'red' Fruits->APPLE->has_seed; # 1 Fruits->APPLE->make_sentence('!!!'); # 'Apple is red!!!' Fruits->enums; # { APPLE => Fruits->APPLE, ORANGE => Fruits->ORANGE, BANANA => Fruits->BANANA } # DESCRIPTION MouseX::Types::Enum provides Java-like enum type declaration. Enums declared are - distinguished from each other - able to have attributes - able to have methods # LICENSE Copyright (C) Naoto Ikeno. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. # AUTHOR Naoto Ikeno