File Coverage

blib/lib/HTML/Shakan/Field/Choice.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package HTML::Shakan::Field::Choice;
use strict;
use warnings;

use List::Util qw/pairmap/;

use Mouse;
extends 'HTML::Shakan::Field';

has '+widget' => (
    default => 'select'
);

has choices => (
    is       => 'ro',
    isa      => 'ArrayRef',
    required => 1,
);

has 'id_tmpl' => (
    is      => 'ro',
    isa     => 'Str',
    default => 'id_%s_%s',
);

override 'get_constraints' => sub {
    my $self = shift;
    my ($name, $constraints) = super();

    return (
        $name => [
            @$constraints,
            ['CHOICE' => [ pairmap { $a } @{$self->choices} ] ]
        ]
    );
};

no Mouse;
__PACKAGE__->meta->make_immutable;
__END__