File Coverage

blib/lib/Repl/Spec/Type/StringEnumType.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	2	2	100.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	3	3	100.0
total	35	37	94.5

=head1 NAME

Repl::Spec::Type::StringEnumType - A parameter guard for strings that can
have a value from a restricted set of string constants.

=head1 SYNOPSIS

This type guard ensures that a string parameter was passed by the user
matching a string out of a set of string constants.

=head1 DESCRIPTION

=head1 Methods

=over 4

=item C

A set of strings from which the values are choosen.

=item C

Parameters: A single expression.
Returns: The string value.

=item C

=head1 SEE ALSO

L
L
L
L
L
L
L
L

=cut

package Repl::Spec::Type::StringEnumType;

use strict;
use warnings;
use Carp;

# Parameters:
# - A list of string constants.
sub new
{
    my $invocant = shift;
    my $class = ref($invocant) || $invocant;

    my @values = @_;

    my $self= {VALUES=>\@values};
    return bless $self, $class;
}

sub guard
{
    my $self = shift;
    my $arg = shift;
    my $values = $self->{VALUES};

    foreach my $enum (@$values)
    {
        return $arg if($enum eq $arg);
    }
    croak sprintf("Expected %s but received '%s'.", $self->name(), $arg);
}

sub name
{
    my $self = shift;
    my $values = $self->{VALUES};

    return sprintf('enum %s', join("|", @$values));
}

1;