File Coverage

blib/lib/Form/Processor/Field/Multiple.pm

Criterion	Covered	Total	%
statement	15	23	65.2
branch	3	8	37.5
condition	1	3	33.3
subroutine	5	6	83.3
pod	1	3	33.3
total	25	43	58.1

package Form::Processor::Field::Multiple;
$Form::Processor::Field::Multiple::VERSION = '1.162360';
use strict;
use warnings;
use base 'Form::Processor::Field::Select';



sub init_multiple {1}    # allow multiple values.

sub init_size {5}        # default to showing five items if showing in a select list.



sub options {
    my $self    = shift;
    my @options = $self->SUPER::options( @_ );
    my $value   = $self->value;


    # This places the currently selected options at the top of the list
    # Makes the drop down lists a bit nicer

    if ( @options && defined $value ) {
        my %selected = map { $_ => 1 } ref( $value ) eq 'ARRAY' ? @$value : ( $value );

        my @out = grep { $selected{ $_->{value} } } @options;
        push @out, grep { !$selected{ $_->{value} } } @options;

        return wantarray ? @out : \@out;
    }

    return wantarray ? @options : \@options;
}


# ABSTRACT: Select one or more options



1;

__END__