File Coverage

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

Criterion	Covered	Total	%
statement	14	31	45.1
branch	0	10	0.0
condition	0	5	0.0
subroutine	6	13	46.1
pod	3	9	33.3
total	23	68	33.8

# ABSTRACT: ** Please provide abstract **

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



use Rose::Object::MakeMethods::Generic (
    array => [

        # Array of hashes with value and label.
        options => { interface => 'get_set_init' },
        reset_options => { interface => 'reset', hash_key => 'options' },
    ],
    scalar => [
        multiple => { interface => 'get_set_init' },
        size     => { interface => 'get_set_init' },

        label_column     => { interface => 'get_set_init' },
        active_column    => { interface => 'get_set_init' },
        auto_widget_size => { interface => 'get_set_init' },
        sort_order       => {},
    ],
);


sub init_options { [] }

sub init_widget {'select'}


sub init_multiple {0}


sub init_auto_widget_size {0}


sub select_widget {
    my $field = shift;

    my $size = $field->auto_widget_size;

    return $field->widget unless $field->widget eq 'select' && $size;

    my $options = $field->options || [];

    return 'select' if @$options > $size;

    return $field->multiple ? 'checkbox' : 'radio';
}




sub init_size {0}



sub init_label_column {'name'}



sub init_active_column {'active'}







sub as_label {
    my $field = shift;

    my $value = $field->value;
    return unless defined $value;

    for ( $field->options ) {
        return $_->{label} if $_->{value} eq $value;
    }

    return;
}



1;

__END__