File Coverage

blib/lib/Data/MuForm/Field/List.pm

Criterion	Covered	Total	%
statement	33	35	94.2
branch	12	18	66.6
condition	2	6	33.3
subroutine	8	8	100.0
pod	1	4	25.0
total	56	71	78.8

package Data::MuForm::Field::List;
# ABSTRACT: List field
use Moo;
extends 'Data::MuForm::Field::Text';
use Types::Standard -types;


sub multiple {1}

has 'size' => ( is => 'rw' );
has 'num_extra' => ( is => 'rw' );

# add trigger to 'value' so we can enforce arrayref value for multiple
has '+value' => ( trigger => 1 );
sub _trigger_value {
    my ( $self, $value ) = @_;
    if (!defined $value || $value eq ''){
        $value = [];
    }
    else {
       $value = ref $value eq 'ARRAY' ? $value : [$value];
    }
    $self->{value} = $value;
}

has '+input' => ( trigger => 1 );
sub _trigger_input {
    my ( $self, $input ) = @_;
    if (!defined $input || $input eq ''){
        $input = [];
    }
    else {
       $input = ref $input eq 'ARRAY' ? $input : [$input];
    }
    $self->{input} = $input;
}

has 'valid' => ( is => 'rw', isa => ArrayRef, default => sub {[]} );
sub has_valid {
   my $self = shift;
   return scalar @{$self->valid} ? 1 : 0;
}

sub validate {
    my $self = shift;

    if ( $self->has_valid ) {
        my %valid;
        @valid{@{$self->valid}} = ();
        foreach my $value ( @{$self->value} ) {
            unless ( exists $valid{$value} ) {
                $self->add_error("Invalid value: '{value}'", value => $value);
            }
        }
    }
}

sub base_render_args {
    my $self = shift;
    my $args = $self->next::method(@_);
    $args->{layout_type} = 'list';
    $args->{size} = $self->size if $self->size;
    $args->{num_extra} = $self->num_extra if $self->num_extra;
    return $args;
}
1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Data::MuForm::Field::List - List field

=head1 VERSION

version 0.04

=head2 NAME

Data::MuForm::Field::List

=head2 DESCRIPTION

=head1 AUTHOR

Gerda Shank

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by Gerda Shank.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut