NAME

Devel::Ladybug::Enum - C style enumerated types as Perl constants

DESCRIPTION

This module emulates a subset of the functionality found in enum.pm. Unlike enum.pm, the symbols generated by this module are created as constants, and may be imported and exported as such.

ENUMERATIONS

Devel::Ladybug includes the following enumeration packages:

Devel::Ladybug::Enum::Bool

Provide false and true enumerated constants
Devel::Ladybug::StorageType

Constant enumeration of supported backing store types

SYNOPSIS

use Devel::Ladybug::Enum qw(
  Sun Mon Tue Wed Thu Fri Sat
  Forty=40 FortyOne Five=5 Six Seven
);

Basic Usage

Create a quick package of enumerated constants:

#
# File: Month.pm
#
package Month;

use Devel::Ladybug::Enum qw|
  jan feb mar apr may jun jul aug sep oct nov dec
|;

1;

Meanwhile, in caller:

#
# File: hangover.pl
#
use Month;

...

my $month = getMonth();

if ( $month == Month::jan ) {
  print "Happy New Year\n";
}

Auto Export

Same usage as the Month.pm example above, with an extra block of code eval'd for Exporter.

#
# File: DayOfWeek.pm
#
package DayOfWeek;

use Devel::Ladybug::Enum qw| sun mon tue wed thu fri sat |;

eval { @EXPORT = @EXPORT_OK };

1;