# NAME MouseX::Types::Enum - Object-oriented, Java-like enum type declaration based on Mouse # SYNOPSIS In the following example, - Three enumeration constants, `APPLE`, `ORANGE`, and `BANANA` are defined. - Three instance variables, `name`, `color`, and `has_seed` are defined. - A method `make_sentence($suffix)` is defined. code: { package Fruits; use Mouse; use MouseX::Types::Enum ( APPLE => { name => 'Apple', color => 'red' }, ORANGE => { name => 'Orange', color => 'orange' }, 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 } If you have no need to define instance variables, you can declare enums more simply like following. { package Day; 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; # 'Sun' Day->enums; # { Sun => Day->Sun, Mon => Day->Mon, ... } # DESCRIPTION MouseX::Types::Enum provides Java-like enum type declaration based on Mouse. You can declare enums which have instance variables and 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