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.

  { 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 }

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;    # 'APPLE'
Day->enums;             # { Sun => Day->Sun, Mon => Day->Mon, ... }

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 ikenox@gmail.com