NAME

Venus::Enum - Enum Class

ABSTRACT

Enum Class for Perl 5

SYNOPSIS

package main;

use Venus::Enum;

my $enum = Venus::Enum->new(['n', 's', 'e', 'w']);

# my $north = $enum->get('n');

# "n"

DESCRIPTION

This package provides an interface for working with enumerations.

INHERITS

This package inherits behaviors from:

Venus::Sealed

METHODS

This package provides the following methods:

get

get(string $name) (Venus::Enum)

The get method returns a new object representing the enum member specified.

Since 3.55

get example 1

# given: synopsis

package main;

my $get = $enum->get('n');

# bless(..., "Venus::Enum")

# $get->value

# "n"

get example 2

# given: synopsis

package main;

my $get = $enum->get('s');

# bless(..., "Venus::Enum")

# $get->value

# "s"

has

has(string $name) (boolean)

The has method returns true if the member name or value exists in the enum, otherwise returns false.

Since 3.55

has example 1

# given: synopsis

package main;

my $has = $enum->has('n');

# true

has example 2

# given: synopsis

package main;

my $has = $enum->has('z');

# false

is

is(string $name) (boolean)

The is method returns true if the member name or value specified matches the member selected in the enum, otherwise returns false.

Since 3.55

is example 1

# given: synopsis

package main;

my $is = $enum->get('n')->is('n');

# true

is example 2

# given: synopsis

package main;

my $is = $enum->get('s')->is('n');

# false

items

items() (tuple[string, string])

The items method returns an arrayref of arrayrefs containing the name and value pairs for the enumerations. Returns a list in list context.

Since 3.55

items example 1

# given: synopsis

package main;

my $items = $enum->items;

# [["e", "e"], ["n", "n"], ["s", "s"], ["w", "w"]]

items example 2

# given: synopsis

package main;

my @items = $enum->items;

# (["e", "e"], ["n", "n"], ["s", "s"], ["w", "w"])

list

list() (within[arrayref, string])

The list method returns an arrayref containing the values for the enumerations. Returns a list in list context.

Since 3.55

list example 1

# given: synopsis

package main;

my $list = $enum->list;

# ["e", "n", "s", "w"]

list example 2

# given: synopsis

package main;

my @list = $enum->list;

# ("e", "n", "s", "w")

name

name() (maybe[string])

The name method returns the name of the member selected or returns undefined.

Since 3.55

name example 1

# given: synopsis

package main;

my $name = $enum->name;

# undef

name example 2

# given: synopsis

package main;

my $n = $enum->get('n');

my $name = $n->name;

# "n"

names

names() (within[arrayref, string])

The names method returns an arrayref containing the names for the enumerations. Returns a list in list context.

Since 3.55

names example 1

# given: synopsis

package main;

my $names = $enum->names;

# ["e", "n", "s", "w"]

names example 2

# given: synopsis

package main;

my @names = $enum->names;

# ("e", "n", "s", "w")

value

value() (maybe[string])

The value method returns the value of the member selected or returns undefined.

Since 3.55

value example 1

# given: synopsis

package main;

my $value = $enum->value;

# undef

value example 2

# given: synopsis

package main;

my $n = $enum->get('n');

my $value = $n->value;

# "n"

values

values() (within[arrayref, string])

The values method returns an arrayref containing the values for the enumerations. Returns a list in list context.

Since 3.55

values example 1

# given: synopsis

package main;

my $values = $enum->values;

# ["e", "n", "s", "w"]

values example 2

# given: synopsis

package main;

my @values = $enum->values;

# ("e", "n", "s", "w")

OPERATORS

This package overloads the following operators:

operation: ("")

This package overloads the "" operator.

example 1

# given: synopsis;

my $result = "$enum";

# ""

example 2

# given: synopsis;

my $n = $enum->get("n");

my $result = "$n";

# "n"

operation: (eq)

This package overloads the eq operator.

example 1

# given: synopsis;

my $result = $enum eq "";

# 1

example 2

# given: synopsis;

my $s = $enum->get("s");

my $result = $s eq "s";

# 1

operation: (ne)

This package overloads the ne operator.

example 1

# given: synopsis;

my $result = $enum ne "";

# 0

example 2

# given: synopsis;

my $n = $enum->get("n");

my $result = $n ne "";

# 1

operation: (qr)

This package overloads the qr operator.

example 1

# given: synopsis;

my $n = $enum->get('n');

my $test = 'north' =~ qr/$n/;

# 1

AUTHORS

Awncorp, awncorp@cpan.org

LICENSE

Copyright (C) 2022, Awncorp, awncorp@cpan.org.

This program is free software, you can redistribute it and/or modify it under the terms of the Apache license version 2.0.

cpanm Venus

perl -MCPAN -e shell
install Venus