File Coverage

blib/lib/HTML/FormFu/Role/Element/ProcessOptionsFromModel.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch	1	8	12.5
condition	1	3	33.3
subroutine	3	3	100.0
pod			n/a
total	14	29	48.2

use strict;

package HTML::FormFu::Role::Element::ProcessOptionsFromModel;
# ABSTRACT: process_options_from_model role
$HTML::FormFu::Role::Element::ProcessOptionsFromModel::VERSION = '2.07';
use Moose::Role;

sub _process_options_from_model {
    my ($self) = @_;

    my $args = $self->model_config;

    return if !$args || !keys %$args;

    return if @{ $self->options };

    # don't run if {options_from_model} is set and is 0

    my $option_flag
        = exists $args->{options_from_model}
        ? $args->{options_from_model}
        : 1;

    return if !$option_flag;

    $self->options(
        [ $self->form->model->options_from_model( $self, $args ) ] );

    return;
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

HTML::FormFu::Role::Element::ProcessOptionsFromModel - process_options_from_model role

=head1 VERSION

version 2.07

=head1 AUTHOR

Carl Franks <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2018 by Carl Franks.

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